[Emacs-diffs] master ad4f670: * lisp/help-fns.el (help-fns--signature): Keep doc for keymap.

[Stefan Monnier]

branch: master
commit ad4f6708116bc8bcbb034bddc0e460eecc23c08f
Author: Christopher Genovese <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/help-fns.el (help-fns--signature): Keep doc for keymap.
---
 lisp/ChangeLog   |    4 ++++
 lisp/help-fns.el |    4 +++-
 2 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4b1fff..9ca0c30 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-02-09  Christopher Genovese  <address@hidden>  (tiny change)
+
+       * help-fns.el (help-fns--signature): Keep doc for keymap.
+
 2015-02-09  Kelly Dean  <address@hidden>
 
        * desktop.el: Save mark-ring less verbosely.
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 61e8d54..7ecd271 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -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)))