aboutsummaryrefslogtreecommitdiffstats
path: root/src/composite.c
diff options
context:
space:
mode:
authorMiles Bader2005-07-22 08:27:27 +0000
committerMiles Bader2005-07-22 08:27:27 +0000
commit3674ae2f87e47a654524af689ea610ee3edeaca7 (patch)
tree58ea33c40c8521a79fb503080b8bb6231ffbf579 /src/composite.c
parent3e03f554f116e04ba860dcde7c6d862939911e16 (diff)
parent7929f858f8897f0448771a471f8afc5f244e4bca (diff)
downloademacs-3674ae2f87e47a654524af689ea610ee3edeaca7.tar.gz
emacs-3674ae2f87e47a654524af689ea610ee3edeaca7.zip
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71
Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 485-492) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 92-94) - Merge from emacs--cvs-trunk--0 - Update from CVS
Diffstat (limited to 'src/composite.c')
-rw-r--r--src/composite.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/composite.c b/src/composite.c
index 63d54b93a34..1eb0b0212fd 100644
--- a/src/composite.c
+++ b/src/composite.c
@@ -628,8 +628,8 @@ DEFUN ("compose-region-internal", Fcompose_region_internal,
628Compose text in the region between START and END. 628Compose text in the region between START and END.
629Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC 629Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC
630for the composition. See `compose-region' for more detail. */) 630for the composition. See `compose-region' for more detail. */)
631 (start, end, components, mod_func) 631 (start, end, components, modification_func)
632 Lisp_Object start, end, components, mod_func; 632 Lisp_Object start, end, components, modification_func;
633{ 633{
634 validate_region (&start, &end); 634 validate_region (&start, &end);
635 if (!NILP (components) 635 if (!NILP (components)
@@ -638,7 +638,7 @@ for the composition. See `compose-region' for more detail. */)
638 && !STRINGP (components)) 638 && !STRINGP (components))
639 CHECK_VECTOR (components); 639 CHECK_VECTOR (components);
640 640
641 compose_text (XINT (start), XINT (end), components, mod_func, Qnil); 641 compose_text (XINT (start), XINT (end), components, modification_func, Qnil);
642 return Qnil; 642 return Qnil;
643} 643}
644 644
@@ -649,8 +649,8 @@ DEFUN ("compose-string-internal", Fcompose_string_internal,
649Compose text between indices START and END of STRING. 649Compose text between indices START and END of STRING.
650Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC 650Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC
651for the composition. See `compose-string' for more detail. */) 651for the composition. See `compose-string' for more detail. */)
652 (string, start, end, components, mod_func) 652 (string, start, end, components, modification_func)
653 Lisp_Object string, start, end, components, mod_func; 653 Lisp_Object string, start, end, components, modification_func;
654{ 654{
655 CHECK_STRING (string); 655 CHECK_STRING (string);
656 CHECK_NUMBER (start); 656 CHECK_NUMBER (start);
@@ -661,7 +661,7 @@ for the composition. See `compose-string' for more detail. */)
661 || XINT (end) > SCHARS (string)) 661 || XINT (end) > SCHARS (string))
662 args_out_of_range (start, end); 662 args_out_of_range (start, end);
663 663
664 compose_text (XINT (start), XINT (end), components, mod_func, string); 664 compose_text (XINT (start), XINT (end), components, modification_func, string);
665 return string; 665 return string;
666} 666}
667 667