Commit d704470f authored by Andreas Schwab's avatar Andreas Schwab

(map_keymap_char_table_item): Make a copy of KEY if it is a

parent 54b33868
2008-12-26 Andreas Schwab <>
* keymap.c (map_keymap_char_table_item): Make a copy of KEY if it is a
2008-12-26 Martin Rudalics <> 2008-12-26 Martin Rudalics <>
* textprop.c (Qminibuffer_prompt): New variable. * textprop.c (Qminibuffer_prompt): New variable.
...@@ -650,6 +650,10 @@ map_keymap_char_table_item (args, key, val) ...@@ -650,6 +650,10 @@ map_keymap_char_table_item (args, key, val)
{ {
map_keymap_function_t fun = XSAVE_VALUE (XCAR (args))->pointer; map_keymap_function_t fun = XSAVE_VALUE (XCAR (args))->pointer;
args = XCDR (args); args = XCDR (args);
/* If the key is a range, make a copy since map_char_table modifies
it in place. */
if (CONSP (key))
key = Fcons (XCAR (key), XCDR (key));
map_keymap_item (fun, XCDR (args), key, val, map_keymap_item (fun, XCDR (args), key, val,
XSAVE_VALUE (XCAR (args))->pointer); XSAVE_VALUE (XCAR (args))->pointer);
} }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment