Commit b89d72a1 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 2cb28a60
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment