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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4b1fff4373778ec9dacf4a3b8334a5fa1323135..9ca0c306e44df19f5459ccb1b95270248326bf73 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-02-09  Christopher Genovese  <genovese@cmu.edu>  (tiny change)
+
+       * help-fns.el (help-fns--signature): Keep doc for keymap.
+
 2015-02-09  Kelly Dean  <kelly@prtime.org>
 
        * desktop.el: Save mark-ring less verbosely.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 61e8d54acb3ed267267a33a8a8476ba83bdb6e0f..7ecd271d0c8e9f4c0fe8c87c11a2494498f18b28 100644 (file)
--- 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)))