Mercurial > emacs

comparison src/keymap.c @ 16125:2e0a45264368

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(syms_of_keymap): staticpro current_global_map;
author Richard M. Stallman <rms@gnu.org>
date Wed, 04 Sep 1996 16:09:43 +0000
parents dd639432a55a
children 6acf08913847
comparison
equal deleted inserted replaced
16124:f38128a8bb2b 16125:2e0a45264368
2718 2718
2719 global_map = Fcons (Qkeymap, 2719 global_map = Fcons (Qkeymap,
2720 Fcons (Fmake_vector (make_number (0400), Qnil), Qnil)); 2720 Fcons (Fmake_vector (make_number (0400), Qnil), Qnil));
2721 Fset (intern ("global-map"), global_map); 2721 Fset (intern ("global-map"), global_map);
2722 2722
2723 current_global_map = global_map;
2724 staticpro (&current_global_map);
2725
2723 meta_map = Fmake_keymap (Qnil); 2726 meta_map = Fmake_keymap (Qnil);
2724 Fset (intern ("esc-map"), meta_map); 2727 Fset (intern ("esc-map"), meta_map);
2725 Ffset (intern ("ESC-prefix"), meta_map); 2728 Ffset (intern ("ESC-prefix"), meta_map);
2726 2729
2727 control_x_map = Fmake_keymap (Qnil); 2730 control_x_map = Fmake_keymap (Qnil);
2747 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil); 2750 Vminibuffer_local_completion_map = Fmake_sparse_keymap (Qnil);
2748 2751
2749 DEFVAR_LISP ("minibuffer-local-must-match-map", &Vminibuffer_local_must_match_map, 2752 DEFVAR_LISP ("minibuffer-local-must-match-map", &Vminibuffer_local_must_match_map,
2750 "Local keymap for minibuffer input with completion, for exact match."); 2753 "Local keymap for minibuffer input with completion, for exact match.");
2751 Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil); 2754 Vminibuffer_local_must_match_map = Fmake_sparse_keymap (Qnil);
2752
2753 current_global_map = global_map;
2754 2755
2755 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist, 2756 DEFVAR_LISP ("minor-mode-map-alist", &Vminor_mode_map_alist,
2756 "Alist of keymaps to use for minor modes.\n\ 2757 "Alist of keymaps to use for minor modes.\n\
2757 Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read\n\ 2758 Each element looks like (VARIABLE . KEYMAP); KEYMAP is used to read\n\
2758 key sequences and look up bindings iff VARIABLE's value is non-nil.\n\ 2759 key sequences and look up bindings iff VARIABLE's value is non-nil.\n\