# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841853383 0
# Node ID 2e0a452643681638276dab6caa4fa7fb9ee0beea
# Parent  f38128a8bb2b88875f3bbf2140267369feeba7bc
(syms_of_keymap): staticpro current_global_map;

diff -r f38128a8bb2b -r 2e0a45264368 src/keymap.c
--- a/src/keymap.c	Wed Sep 04 15:40:46 1996 +0000
+++ b/src/keymap.c	Wed Sep 04 16:09:43 1996 +0000
@@ -2720,6 +2720,9 @@
 		      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 @@
     "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\