# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 936776512 0
# Node ID d1251e91145110f83f8aa43a3ceadd29e302d82f
# Parent  634f6f6993313b25d559fff6918154483d37fb7f
(describe-function-1): Don't return empty string for keymaps.

diff -r 634f6f699331 -r d1251e911451 lisp/help.el
--- a/lisp/help.el	Wed Sep 08 07:37:56 1999 +0000
+++ b/lisp/help.el	Wed Sep 08 07:41:52 1999 +0000
@@ -646,6 +646,18 @@
 			 (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)