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

2 files changed, 7 insertions, 5 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index a0deac67367..2e913ff30b9 100644
--- 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 edf535f7610..c439e6c7e89 100644
--- 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);