From 24374f5a1dafd5be4fdd2eb32f338516c6836459 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Wed, 30 Nov 2005 00:55:12 +0000 Subject: [PATCH] (describe-function-1): Fill arglist. --- lisp/ChangeLog | 4 ++++ lisp/help-fns.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * help-fns.el (describe-function-1): Fill arglist output. + 2005-11-30 Kim F. Storm * 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. -- 2.39.5