diff options
| author | Miles Bader | 2005-07-22 08:27:27 +0000 |
|---|---|---|
| committer | Miles Bader | 2005-07-22 08:27:27 +0000 |
| commit | 3674ae2f87e47a654524af689ea610ee3edeaca7 (patch) | |
| tree | 58ea33c40c8521a79fb503080b8bb6231ffbf579 /src/composite.c | |
| parent | 3e03f554f116e04ba860dcde7c6d862939911e16 (diff) | |
| parent | 7929f858f8897f0448771a471f8afc5f244e4bca (diff) | |
| download | emacs-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.c | 12 |
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, | |||
| 628 | Compose text in the region between START and END. | 628 | Compose text in the region between START and END. |
| 629 | Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC | 629 | Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC |
| 630 | for the composition. See `compose-region' for more detail. */) | 630 | for 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, | |||
| 649 | Compose text between indices START and END of STRING. | 649 | Compose text between indices START and END of STRING. |
| 650 | Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC | 650 | Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC |
| 651 | for the composition. See `compose-string' for more detail. */) | 651 | for 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 | ||