(describe-function-1): Fill arglist.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b95bd692f8f..ae1a178ae0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-30  John Paul Wallington  <jpw@gnu.org>
+
+        * help-fns.el (describe-function-1): Fill arglist output.
+
 2005-11-30  Kim F. Storm  <storm@cua.dk>
 
         * emulation/cua-rect.el (cua--rectangle-overlays): Make permanent-local.
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 6e1bd62d04b..c3bff927300 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -436,7 +436,9 @@ face (according to `face-differs-from-default-p')."
                          (format "\nMacro: %s" (format-kbd-macro def)))
                         (t "[Missing arglist.  Please make a bug report.]")))
                  (high (help-highlight-arguments use doc)))
-            (insert (car high) "\n")
+            (let ((fill-begin (point)))
+              (insert (car high) "\n")
+              (fill-region fill-begin (point)))
             (setq doc (cdr high))))
         (let ((obsolete (and
                          ;; function might be a lambda construct.