From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 6 Nov 2009 07:49:31 +0000 (+0000)
Subject: * keymap.c (syms_of_keymap): Construct exclude_keys in pure memory.
X-Git-Tag: emacs-pretest-23.1.90~550
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5adc433ec64ffbd82f809de77fceb294fc8a93c2;p=emacs.git

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

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);