comparison src/keymap.c @ 42381:810b3bfc52cf

Fix previous change; also correct its change log: (Fdefine_key): Add error message for trying to bind [DEL], [RET], etc. (exclude_keys): New variable. (Flookup_key): Error message if key has wrong data type.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 Dec 2001 18:48:46 +0000
parents 9f96219e833e
children ca040d0f5c67
comparison
equal deleted inserted replaced
42380:2f797e333c2c 42381:810b3bfc52cf
46 ESC-prefixed default commands */ 46 ESC-prefixed default commands */
47 47
48 Lisp_Object control_x_map; /* The keymap used for globally bound 48 Lisp_Object control_x_map; /* The keymap used for globally bound
49 C-x-prefixed default commands */ 49 C-x-prefixed default commands */
50 50
51 /* Alist of elements like (DEL . "\d"). */
52 Lisp_Object exclude_keys;
53
54 /* was MinibufLocalMap */ 51 /* was MinibufLocalMap */
55 Lisp_Object Vminibuffer_local_map; 52 Lisp_Object Vminibuffer_local_map;
56 /* The keymap used by the minibuf for local 53 /* The keymap used by the minibuf for local
57 bindings when spaces are allowed in the 54 bindings when spaces are allowed in the
58 minibuf */ 55 minibuf */
91 This is used to speed up recomputation of menu key equivalents 88 This is used to speed up recomputation of menu key equivalents
92 when Emacs starts up. t means don't record anything here. */ 89 when Emacs starts up. t means don't record anything here. */
93 Lisp_Object Vdefine_key_rebound_commands; 90 Lisp_Object Vdefine_key_rebound_commands;
94 91
95 Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii, Qmenu_item; 92 Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii, Qmenu_item;
93
94 /* Alist of elements like (DEL . "\d"). */
95 static Lisp_Object exclude_keys;
96 96
97 /* A char with the CHAR_META bit set in a vector or the 0200 bit set 97 /* A char with the CHAR_META bit set in a vector or the 0200 bit set
98 in a string key sequence is equivalent to prefixing with this 98 in a string key sequence is equivalent to prefixing with this
99 character. */ 99 character. */
100 extern Lisp_Object meta_prefix_char; 100 extern Lisp_Object meta_prefix_char;