(describe-function-1): Fill arglist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b95bd692f8fc43b6bbb166aca260bf0fd0caadc2..ae1a178ae0f328195cf7756302c4e812d4c8009e 100644 (file)
--- 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 6e1bd62d04bca1f0f3897aba4265330681324462..c3bff9273007dbba4e2202e742682cfb27843f6f 100644 (file)
--- 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.