(syms_of_keymap): staticpro current_global_map;

44bff953 · Richard M. Stallman · 4a9f44cd · 44bff953
Commit 44bff953 authored Sep 04, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

src/keymap.c src/keymap.c +3 -2

No files found.
--- 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\