From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 19 Apr 1997 22:59:20 +0000 (+0000)
Subject: (describe_vector): Test for suppressed commands in
X-Git-Tag: emacs-20.1~2434
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc3e64653b1bece79e94cfd530ed05dfbf2006ea;p=emacs.git

(describe_vector): Test for suppressed commands in
all cases.  Call get_keyelt with two arguments.
---

diff --git a/src/keymap.c b/src/keymap.c
index e042f64a099..7ef50502ba9 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2623,12 +2623,13 @@ describe_vector (vector, elt_prefix, elt_describer,
 	  if (i >= CHAR_TABLE_SINGLE_BYTE_SLOTS
 	      && !CHARSET_DEFINED_P (i - 128))
 	    continue;
-	  definition = get_keyelt (XCHAR_TABLE (vector)->contents[i]);
-	  if (NILP (definition)) continue;      
+	  definition = get_keyelt (XCHAR_TABLE (vector)->contents[i], 0);
 	}
       else
 	definition = get_keyelt (XVECTOR (vector)->contents[i], 0);
 
+      if (NILP (definition)) continue;      
+
       /* Don't mention suppressed commands.  */
       if (SYMBOLP (definition) && partial)
 	{