(syms_of_keymap): staticpro current_global_map;

diff --git a/src/keymap.c b/src/keymap.c
index 88f89cdf72bc1b1018ca375fbddcbb5ab9e20386..7bfc825ec3093d820fd4c9dc9b247b922bd7afbc 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2720,6 +2720,9 @@ syms_of_keymap ()
                      Fcons (Fmake_vector (make_number (0400), Qnil), Qnil));
   Fset (intern ("global-map"), global_map);
 
+  current_global_map = global_map;
+  staticpro (&current_global_map);
+
   meta_map = Fmake_keymap (Qnil);
   Fset (intern ("esc-map"), meta_map);
   Ffset (intern ("ESC-prefix"), meta_map);
@@ -2750,8 +2753,6 @@ don't alter it yourself.");
     "Local keymap for minibuffer input with completion, for exact match.");
   Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil);
 
-  current_global_map = global_map;
-
   DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,
     "Alist of keymaps to use for minor modes.\n\
 Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read\n\