716 |
Compose text in the region between START and END. |
Compose text in the region between START and END. |
717 |
Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC |
Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC |
718 |
for the composition. See `compose-region' for more detail. */) |
for the composition. See `compose-region' for more detail. */) |
719 |
(start, end, components, mod_func) |
(start, end, components, modification_func) |
720 |
Lisp_Object start, end, components, mod_func; |
Lisp_Object start, end, components, modification_func; |
721 |
{ |
{ |
722 |
validate_region (&start, &end); |
validate_region (&start, &end); |
723 |
if (!NILP (components) |
if (!NILP (components) |
726 |
&& !STRINGP (components)) |
&& !STRINGP (components)) |
727 |
CHECK_VECTOR (components); |
CHECK_VECTOR (components); |
728 |
|
|
729 |
compose_text (XINT (start), XINT (end), components, mod_func, Qnil); |
compose_text (XINT (start), XINT (end), components, modification_func, Qnil); |
730 |
return Qnil; |
return Qnil; |
731 |
} |
} |
732 |
|
|
737 |
Compose text between indices START and END of STRING. |
Compose text between indices START and END of STRING. |
738 |
Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC |
Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC |
739 |
for the composition. See `compose-string' for more detail. */) |
for the composition. See `compose-string' for more detail. */) |
740 |
(string, start, end, components, mod_func) |
(string, start, end, components, modification_func) |
741 |
Lisp_Object string, start, end, components, mod_func; |
Lisp_Object string, start, end, components, modification_func; |
742 |
{ |
{ |
743 |
CHECK_STRING (string); |
CHECK_STRING (string); |
744 |
CHECK_NUMBER (start); |
CHECK_NUMBER (start); |
749 |
|| XINT (end) > SCHARS (string)) |
|| XINT (end) > SCHARS (string)) |
750 |
args_out_of_range (start, end); |
args_out_of_range (start, end); |
751 |
|
|
752 |
compose_text (XINT (start), XINT (end), components, mod_func, string); |
compose_text (XINT (start), XINT (end), components, modification_func, string); |
753 |
return string; |
return string; |
754 |
} |
} |
755 |
|
|