diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/help-fns.el | 4 |
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. |