* keymap.c (syms_of_keymap): Construct exclude_keys in pure memory.

diff --git a/src/ChangeLog b/src/ChangeLog
index a0deac673670c477946d17e657db71551b22b3d6..2e913ff30b91bbd8fcf7bfcf5410ca94529ff640 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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):

diff --git a/src/keymap.c b/src/keymap.c
index edf535f7610cfb51da6f175b5db58a14698311bd..c439e6c7e8989d34e673e7bd503155ce001cf969 100644 (file)
--- a/src/keymap.c
+++ b/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);