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

2 files changed, 8 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91676997b43..773d4a06b3a 100644
--- 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 4b5a2e03208..cda2e7d19f2 100644
--- 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