From: Richard M. Stallman Date: Fri, 28 Dec 2001 18:49:02 +0000 (+0000) Subject: Fix previous change; also correct its change log: X-Git-Tag: ttn-vms-21-2-B4~17441 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ade19cac432839b927051d37fe7937f7337c3318;p=emacs.git 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. --- diff --git a/src/ChangeLog b/src/ChangeLog index 16ffe8b6b7c..1f4a09c32b9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -2,7 +2,8 @@ * keymap.c (Flookup_key): Error message if key has wrong data type. (Fdefine_key): Add error message for trying to bind [DEL], [RET], etc. - + (exclude_key): New variable. + 2001-12-28 Gerd Moellmann * xterm.c (x_setup_relief_colors): Don't compute an image's diff --git a/src/keymap.c b/src/keymap.c index 38cafb916b7..ecc17e4a957 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -48,9 +48,6 @@ Lisp_Object meta_map; /* The keymap used for globally bound Lisp_Object control_x_map; /* The keymap used for globally bound C-x-prefixed default commands */ -/* Alist of elements like (DEL . "\d"). */ -Lisp_Object exclude_keys; - /* was MinibufLocalMap */ Lisp_Object Vminibuffer_local_map; /* The keymap used by the minibuf for local @@ -94,6 +91,9 @@ Lisp_Object Vdefine_key_rebound_commands; Lisp_Object Qkeymapp, Qkeymap, Qnon_ascii, Qmenu_item; +/* Alist of elements like (DEL . "\d"). */ +static Lisp_Object exclude_keys; + /* A char with the CHAR_META bit set in a vector or the 0200 bit set in a string key sequence is equivalent to prefixing with this character. */