249 |
} |
} |
250 |
|
|
251 |
/* This composition is a new one. We must register it. */ |
/* This composition is a new one. We must register it. */ |
252 |
|
|
253 |
/* Check if we have sufficient memory to store this information. */ |
/* Check if we have sufficient memory to store this information. */ |
254 |
if (composition_table_size == 0) |
if (composition_table_size == 0) |
255 |
{ |
{ |
485 |
|
|
486 |
if (inhibit_modification_hooks) |
if (inhibit_modification_hooks) |
487 |
return; |
return; |
488 |
|
|
489 |
/* If FROM and TO are not in a valid range, do nothing. */ |
/* If FROM and TO are not in a valid range, do nothing. */ |
490 |
if (! (BEGV <= from && from <= to && to <= ZV)) |
if (! (BEGV <= from && from <= to && to <= ZV)) |
491 |
return; |
return; |
754 |
} |
} |
755 |
|
|
756 |
DEFUN ("find-composition-internal", Ffind_composition_internal, |
DEFUN ("find-composition-internal", Ffind_composition_internal, |
757 |
Sfind_composition_internal, 4, 4, 0, |
Sfind_composition_internal, 4, 4, 0, |
758 |
doc: /* Internal use only. |
doc: /* Internal use only. |
759 |
|
|
760 |
Return information about composition at or nearest to position POS. |
Return information about composition at or nearest to position POS. |
775 |
} |
} |
776 |
else |
else |
777 |
end = -1; |
end = -1; |
778 |
|
|
779 |
if (!NILP (string)) |
if (!NILP (string)) |
780 |
{ |
{ |
781 |
CHECK_STRING (string); |
CHECK_STRING (string); |
839 |
{ |
{ |
840 |
Lisp_Object args[6]; |
Lisp_Object args[6]; |
841 |
extern Lisp_Object QCsize; |
extern Lisp_Object QCsize; |
842 |
|
|
843 |
args[0] = QCtest; |
args[0] = QCtest; |
844 |
args[1] = Qequal; |
args[1] = Qequal; |
845 |
args[2] = QCweakness; |
args[2] = QCweakness; |