(command_loop_1): Print a message describing the key

the user just pressed when this key has no binding.

diff --git a/src/ChangeLog b/src/ChangeLog
index c9196c5b707cc5fa8cd20b70723f1b65461c2e50..b11ea0fa02cc1aa7ef1e6536fc381f51cf46a9e2 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2004-11-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * keyboard.c (command_loop_1): Print a message describing the key
+       the user just pressed when this key has no binding.
+
        * sysdep.c (sys_signal): Don't use SA_RESTART if SYNC_INPUT is set.
        (emacs_open, emacs_read, emacs_write): Check QUIT when interrupted.
 

diff --git a/src/keyboard.c b/src/keyboard.c
index 59dc6e214e52a0a6fd7490181c464c594905845a..d96879a453f1bd7ed386c30d1b0d9f428c3129e4 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1618,7 +1618,10 @@ command_loop_1 ()
       if (NILP (Vthis_command))
        {
          /* nil means key is undefined.  */
+         Lisp_Object keys = Fvector (i, keybuf);
+         keys = Fkey_description (keys, Qnil);
          bitch_at_user ();
+         message_with_string ("%s is undefined", keys, 0);
          current_kboard->defining_kbd_macro = Qnil;
          update_mode_lines = 1;
          current_kboard->Vprefix_arg = Qnil;