From: Christopher Genovese <genovese@cmu.edu>
Date: Mon, 9 Feb 2015 14:04:47 +0000 (-0500)
Subject: * lisp/help-fns.el (help-fns--signature): Keep doc for keymap.
X-Git-Tag: emacs-25.0.90~2008^2~52
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad4f6708116bc8bcbb034bddc0e460eecc23c08f;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4b1fff4373..9ca0c306e44 100644
--- 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 61e8d54acb3..7ecd271d0c8 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)))