(describe-function-1): Change output for keyboard macros.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91676997b43e03fd2b83e840cfb4861c4916c786..773d4a06b3a4efeed343fd5addbfc87d6ee5c540 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-12  Luc Teirlinck  <teirllm@mail.auburn.edu>
+
+       * help-fns.el (describe-function-1): Change output for keyboard
+       macros.
+
 2003-02-12  Andreas Schwab  <schwab@suse.de>
 
        * progmodes/sh-script.el (sh-mode-map): Don't remap

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 4b5a2e0320806889efe9096208aa5f83021259ce..cda2e7d19f25d5d06b2e7ca6b086108eb96eb6c4 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -323,6 +323,9 @@ The usage info is built from ARGLIST.  DOC can be nil."
                                                 function)))))
                   usage)
                 (car usage))
+               ((or (stringp def)
+                    (vectorp def))
+                (format "\nMacro: %s" (format-kbd-macro def)))
                (t "[Missing arglist.  Please make a bug report.]")))
        (terpri))
       (let ((obsolete (and