diff options
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/keymap.c b/src/keymap.c index 82c9e980221..f64c8d5a848 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -565,14 +565,14 @@ map_keymap_char_table_item (Lisp_Object args, Lisp_Object key, Lisp_Object val) | |||
| 565 | { | 565 | { |
| 566 | if (!NILP (val)) | 566 | if (!NILP (val)) |
| 567 | { | 567 | { |
| 568 | map_keymap_function_t fun = XSAVE_POINTER (XCAR (args)); | 568 | map_keymap_function_t fun = XSAVE_POINTER (XCAR (args), 0); |
| 569 | args = XCDR (args); | 569 | args = XCDR (args); |
| 570 | /* If the key is a range, make a copy since map_char_table modifies | 570 | /* If the key is a range, make a copy since map_char_table modifies |
| 571 | it in place. */ | 571 | it in place. */ |
| 572 | if (CONSP (key)) | 572 | if (CONSP (key)) |
| 573 | key = Fcons (XCAR (key), XCDR (key)); | 573 | key = Fcons (XCAR (key), XCDR (key)); |
| 574 | map_keymap_item (fun, XCDR (args), key, val, | 574 | map_keymap_item (fun, XCDR (args), key, val, |
| 575 | XSAVE_POINTER (XCAR (args))); | 575 | XSAVE_POINTER (XCAR (args), 0)); |
| 576 | } | 576 | } |
| 577 | } | 577 | } |
| 578 | 578 | ||