From ade19cac432839b927051d37fe7937f7337c3318 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Dec 2001 18:49:02 +0000 Subject: [PATCH] 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. --- src/ChangeLog | 3 ++- src/keymap.c | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 16ffe8b6b7..1f4a09c32b 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 38cafb916b..ecc17e4a95 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. */ -- 2.20.1