# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1133311893 0
# Node ID 1731ed7a115ff19e0c82005f53af82162994182c
# Parent  fc58516afccde31eafd37741e3978c3d331bfb96
(describe-function-1): Fill arglist.

diff -r fc58516afccd -r 1731ed7a115f lisp/help-fns.el
--- a/lisp/help-fns.el	Wed Nov 30 00:04:51 2005 +0000
+++ b/lisp/help-fns.el	Wed Nov 30 00:51:33 2005 +0000
@@ -436,7 +436,9 @@
                          (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.