* lisp/help-fns.el (help-fns--signature): Keep doc for keymap.

This commit is contained in:
Christopher Genovese 2015-02-09 09:04:47 -05:00 committed by Stefan Monnier
parent c96983efef
commit ad4f670811
2 changed files with 7 additions and 1 deletions

View file

@ -352,7 +352,9 @@ suitable file is found, return nil."
(insert ".\n"))))
(defun help-fns--signature (function doc real-def real-function)
(unless (keymapp function) ; If definition is a keymap, skip arglist note.
"Insert usage at point and return docstring. With highlighting."
(if (keymapp function)
doc ; If definition is a keymap, skip arglist note.
(let* ((advertised (gethash real-def advertised-signature-table t))
(arglist (if (listp advertised)
advertised (help-function-arglist real-def)))