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 16ffe8b6b7c43ff09079758d577212351f5916f6..1f4a09c32b9eb7dd6cef3ad47e71cbb4c26ee3fc 100644 (file)
--- 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  <gerd@gnu.org>
 
        * xterm.c (x_setup_relief_colors): Don't compute an image's

diff --git a/src/keymap.c b/src/keymap.c
index 38cafb916b7e73aa73ca45fa8ff2bb42feea4c48..ecc17e4a95777ed0776143e41b5124b7dcb4cf1f 100644 (file)
--- 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.  */