From: Kenichi Handa <handa@m17n.org>
Date: Tue, 10 Feb 2004 11:30:01 +0000 (+0000)
Subject: (describe_vector): Handle default value of a char table.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1538
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f4d7511f165d3c4eed9fecbfb3ae72c19315cbb;p=emacs.git

(describe_vector): Handle default value of a char table.
---

diff --git a/src/keymap.c b/src/keymap.c
index 174b32de795..7fa4d9a6f71 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -3384,6 +3384,14 @@ describe_vector (vector, elt_prefix, args, elt_describer,
       (*elt_describer) (definition, args);
     }
 
+  if (CHAR_TABLE_P (vector) && ! NILP (XCHAR_TABLE (vector)->defalt))
+    {
+      if (!NILP (elt_prefix))
+	insert1 (elt_prefix);
+      insert ("default", 7);
+      (*elt_describer) (XCHAR_TABLE (vector)->defalt, args);
+    }
+
   UNGCPRO;
 }