mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-07 15:21:46 +00:00
* keymap.c (syms_of_keymap): Construct exclude_keys in pure memory.
This commit is contained in:
parent
d67b4f80db
commit
5adc433ec6
@ -1,5 +1,7 @@
|
|||||||
2009-11-06 Dan Nicolaescu <dann@ics.uci.edu>
|
2009-11-06 Dan Nicolaescu <dann@ics.uci.edu>
|
||||||
|
|
||||||
|
* keymap.c (syms_of_keymap): Construct exclude_keys in pure memory.
|
||||||
|
|
||||||
* xterm.c (syms_of_xterm):
|
* xterm.c (syms_of_xterm):
|
||||||
* xselect.c (syms_of_xselect):
|
* xselect.c (syms_of_xselect):
|
||||||
* xmenu.c (syms_of_xmenu):
|
* xmenu.c (syms_of_xmenu):
|
||||||
|
10
src/keymap.c
10
src/keymap.c
@ -3945,11 +3945,11 @@ syms_of_keymap ()
|
|||||||
Ffset (intern_c_string ("Control-X-prefix"), control_x_map);
|
Ffset (intern_c_string ("Control-X-prefix"), control_x_map);
|
||||||
|
|
||||||
exclude_keys
|
exclude_keys
|
||||||
= Fcons (Fcons (build_string ("DEL"), build_string ("\\d")),
|
= pure_cons (pure_cons (make_pure_c_string ("DEL"), make_pure_c_string ("\\d")),
|
||||||
Fcons (Fcons (build_string ("TAB"), build_string ("\\t")),
|
pure_cons (pure_cons (make_pure_c_string ("TAB"), make_pure_c_string ("\\t")),
|
||||||
Fcons (Fcons (build_string ("RET"), build_string ("\\r")),
|
pure_cons (pure_cons (make_pure_c_string ("RET"), make_pure_c_string ("\\r")),
|
||||||
Fcons (Fcons (build_string ("ESC"), build_string ("\\e")),
|
pure_cons (pure_cons (make_pure_c_string ("ESC"), make_pure_c_string ("\\e")),
|
||||||
Fcons (Fcons (build_string ("SPC"), build_string (" ")),
|
pure_cons (pure_cons (make_pure_c_string ("SPC"), make_pure_c_string (" ")),
|
||||||
Qnil)))));
|
Qnil)))));
|
||||||
staticpro (&exclude_keys);
|
staticpro (&exclude_keys);
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user