aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorDmitry Antipov2013-01-15 13:22:25 +0400
committerDmitry Antipov2013-01-15 13:22:25 +0400
commit2b30549c493d7b67fa92c2b4bcd2bd2e55210ae1 (patch)
treeac4cc77344b3285eb47d5145eb0b28dd6034f54d /src/keymap.c
parent1b971ac155006504b6b1c2688199747f976723af (diff)
downloademacs-2b30549c493d7b67fa92c2b4bcd2bd2e55210ae1.tar.gz
emacs-2b30549c493d7b67fa92c2b4bcd2bd2e55210ae1.zip
* src/lisp.h (XSAVE_POINTER, XSAVE_INTEGER): Change to allow extraction
from any Lisp_Save_Value slot. Add type checking. * src/alloc.c, src/dired.c, src/editfns.c, src/fileio.c, src/ftfont.c: * src/gtkutil.c, src/keymap.c, src/lread.c, src/nsterm.h, src/nsmenu.c: * src/xfns.c, src/xmenu.c, src/xselect.c: All users changed. * admin/coccinelle/xsave.cocci: Semantic patch to adjust users of XSAVE_POINTER and XSAVE_INTEGER macros.
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c4
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