mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-05 11:45:45 +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>
|
||||
|
||||
* keymap.c (syms_of_keymap): Construct exclude_keys in pure memory.
|
||||
|
||||
* xterm.c (syms_of_xterm):
|
||||
* xselect.c (syms_of_xselect):
|
||||
* 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);
|
||||
|
||||
exclude_keys
|
||||
= Fcons (Fcons (build_string ("DEL"), build_string ("\\d")),
|
||||
Fcons (Fcons (build_string ("TAB"), build_string ("\\t")),
|
||||
Fcons (Fcons (build_string ("RET"), build_string ("\\r")),
|
||||
Fcons (Fcons (build_string ("ESC"), build_string ("\\e")),
|
||||
Fcons (Fcons (build_string ("SPC"), build_string (" ")),
|
||||
= pure_cons (pure_cons (make_pure_c_string ("DEL"), make_pure_c_string ("\\d")),
|
||||
pure_cons (pure_cons (make_pure_c_string ("TAB"), make_pure_c_string ("\\t")),
|
||||
pure_cons (pure_cons (make_pure_c_string ("RET"), make_pure_c_string ("\\r")),
|
||||
pure_cons (pure_cons (make_pure_c_string ("ESC"), make_pure_c_string ("\\e")),
|
||||
pure_cons (pure_cons (make_pure_c_string ("SPC"), make_pure_c_string (" ")),
|
||||
Qnil)))));
|
||||
staticpro (&exclude_keys);
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user