Skip to content

GitLab

Commit 44bff953 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(syms_of_keymap): staticpro current_global_map;

parent 4a9f44cd
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
src/keymap.c
View file @ 44bff953
...@@ -2720,6 +2720,9 @@ syms_of_keymap () ...@@ -2720,6 +2720,9 @@ syms_of_keymap ()
Fcons (Fmake_vector (make_number (0400), Qnil), Qnil)); Fcons (Fmake_vector (make_number (0400), Qnil), Qnil));
Fset (intern ("global-map"), global_map); Fset (intern ("global-map"), global_map);
current_global_map = global_map;
staticpro (&current_global_map);
meta_map = Fmake_keymap (Qnil); meta_map = Fmake_keymap (Qnil);
Fset (intern ("esc-map"), meta_map); Fset (intern ("esc-map"), meta_map);
Ffset (intern ("ESC-prefix"), meta_map); Ffset (intern ("ESC-prefix"), meta_map);
...@@ -2750,8 +2753,6 @@ don't alter it yourself."); ...@@ -2750,8 +2753,6 @@ don't alter it yourself.");
"Local keymap for minibuffer input with completion, for exact match."); "Local keymap for minibuffer input with completion, for exact match.");
Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil); Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil);
current_global_map = global_map;
DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist, DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,
"Alist of keymaps to use for minor modes.\n\ "Alist of keymaps to use for minor modes.\n\
Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read\n\ Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read\n\
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment