(describe-function-1): Don't signal "missing arglist" for autoloaded keymaps.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84070f55622abd36bb80ac58700b81ac1457b738..e5f9e969815ae7cab19b8d10a53e1f51076b1f3a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * help-fns.el (describe-function-1): Don't signal "missing arglist"
+       for autoloaded keymaps.
+
        * progmodes/verilog-mode.el (verilog-syntax-ppss): New function.
        (electric-verilog-terminate-line, verilog-in-struct-region-p)
        (verilog-backward-ws&directives, verilog-forward-ws&directives)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index b5172ec024bca9ede30c4e58218dc79992956440..dd25fcece1d01fb771b17c2a8fa23d0ec0e4d811 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -396,7 +396,7 @@ face (according to `face-differs-from-default-p')."
           (usage (help-split-fundoc doc function)))
       (with-current-buffer standard-output
         ;; If definition is a keymap, skip arglist note.
-        (unless (keymapp def)
+        (unless (keymapp function)
           (let* ((use (cond
                         (usage (setq doc (cdr usage)) (car usage))
                         ((listp arglist)