From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 25 Nov 2004 22:17:49 +0000 (+0000)
Subject: (command_loop_1): Print a message describing the key
X-Git-Tag: ttn-vms-21-2-B4~3660
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bf0e604662eda25edeecc4be6e56fe36687e348;p=emacs.git

(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 c9196c5b707..b11ea0fa02c 100644
--- 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 59dc6e214e5..d96879a453f 100644
--- 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;