diff options
Diffstat (limited to 'src/composite.c')
| -rw-r--r-- | src/composite.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/composite.c b/src/composite.c index bfc8093a87f..62ab3d04948 100644 --- a/src/composite.c +++ b/src/composite.c | |||
| @@ -947,20 +947,12 @@ autocmp_chars (Lisp_Object rule, ptrdiff_t charpos, ptrdiff_t bytepos, ptrdiff_t | |||
| 947 | string); | 947 | string); |
| 948 | if (NILP (LGSTRING_ID (lgstring))) | 948 | if (NILP (LGSTRING_ID (lgstring))) |
| 949 | { | 949 | { |
| 950 | Lisp_Object args[6]; | ||
| 951 | |||
| 952 | /* Save point as marker before calling out to lisp. */ | 950 | /* Save point as marker before calling out to lisp. */ |
| 953 | if (NILP (string)) | 951 | if (NILP (string)) |
| 954 | record_unwind_protect (restore_point_unwind, | 952 | record_unwind_protect (restore_point_unwind, |
| 955 | build_marker (current_buffer, pt, pt_byte)); | 953 | build_marker (current_buffer, pt, pt_byte)); |
| 956 | 954 | lgstring = safe_call (6, Vauto_composition_function, AREF (rule, 2), | |
| 957 | args[0] = Vauto_composition_function; | 955 | pos, make_number (to), font_object, string); |
| 958 | args[1] = AREF (rule, 2); | ||
| 959 | args[2] = pos; | ||
| 960 | args[3] = make_number (to); | ||
| 961 | args[4] = font_object; | ||
| 962 | args[5] = string; | ||
| 963 | lgstring = safe_call (6, args); | ||
| 964 | } | 956 | } |
| 965 | return unbind_to (count, lgstring); | 957 | return unbind_to (count, lgstring); |
| 966 | } | 958 | } |