(describe-function-1): Don't return empty string for keymaps.

1 files changed, 12 insertions, 0 deletions

diff --git a/lisp/help.el b/lisp/help.el
index 40d8521e7dc..957a0fc637f 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -646,6 +646,18 @@ It can also be nil, if the definition is not associated with any file."
                          (if (eq (nth 4 def) 'keymap) "keymap"
                            (if (nth 4 def) "Lisp macro" "Lisp function"))
                          ))
+                ;; perhaps use keymapp here instead
+                ((eq (car-safe def) 'keymap)
+                 (let ((is-full nil)
+                       (elts (cdr-safe def)))
+                   (while elts
+                     (if (char-table-p (car-safe elts))
+                         (setq is-full t
+                               elts nil))
+                     (setq elts (cdr-safe elts)))
+                   (if is-full
+                       "a full keymap"
+                     "a sparse keymap")))
                 (t "")))
     (when (and parens (not (equal string "")))
       (setq need-close t)