Mercurial > emacs
diff lisp/help-fns.el @ 83405:1955a4462bf9
Merged from miles@gnu.org--gnu-2005 (patch 659-663)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-659
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-660
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-661
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-662
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-663
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-445
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sat, 03 Dec 2005 14:25:50 +0000 |
| parents | 03934708f1e9 9c628f17433c |
| children | de425e4eb0bc |
line wrap: on
line diff
--- a/lisp/help-fns.el Wed Nov 23 01:35:21 2005 +0000 +++ b/lisp/help-fns.el Sat Dec 03 14:25:50 2005 +0000 @@ -223,7 +223,6 @@ (concat "src/" file) file))))) -;;;###autoload (defface help-argument-name '((((supports :slant italic)) :inherit italic)) "Face to highlight argument names in *Help* buffers." :group 'help) @@ -436,7 +435,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.