changeset 67217:1731ed7a115f

(describe-function-1): Fill arglist.
author John Paul Wallington <jpw@pobox.com>
date Wed, 30 Nov 2005 00:51:33 +0000
parents fc58516afccd
children 0fb0d75cb30c
files lisp/help-fns.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.