Mercurial > emacs

changeset 25605:d1251e911451

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-function-1): Don't return empty string for keymaps.
author Richard M. Stallman <rms@gnu.org>
date Wed, 08 Sep 1999 07:41:52 +0000
parents 634f6f699331
children 7ab723e4a21a
files lisp/help.el
diffstat 1 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)