From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Sep 1996 16:09:43 +0000 (+0000)
Subject: (syms_of_keymap): staticpro current_global_map;
X-Git-Tag: emacs-20.1~3819
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44bff953438b63c30921b9a133048c1f72d087d5;p=emacs.git

(syms_of_keymap): staticpro current_global_map;
---

diff --git a/src/keymap.c b/src/keymap.c
index 88f89cdf72b..7bfc825ec30 100644
--- 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\