address@hidden: RE: Wrap intro lines in *Help* to standard max length]

[Richard Stallman]

If people think this is an improvement, please install it.

------- Start of forwarded message -------
From: "Drew Adams" <address@hidden>
To: <address@hidden>
Subject: RE: Wrap intro lines in *Help* to standard max length
Date: Tue, 25 Dec 2007 16:17:30 -0800
Message-ID: <address@hidden>
MIME-Version: 1.0
Content-Type: text/plain;
        charset="ISO-8859-15"
In-Reply-To: <address@hidden>

> Want to send a patch?

I also added an extra terpri, because it looks better and is easier to read.



diff -c -w help-fns-CVS-2007-12-25.el help-fns-patched-2007-12-25.el
*** help-fns-CVS-2007-12-25.el  Tue Dec 25 16:12:20 2007
- --- help-fns-patched-2007-12-25.el    Tue Dec 25 16:14:36 2007
***************
*** 348,354 ****
          (re-search-backward "`\\([^`']+\\)'" nil t)
          (help-xref-button 1 'help-function-def real-function file-name))))
      (princ ".")
!     (terpri)
      (when (commandp function)
        (if (and (eq function 'self-insert-command)
               (eq (key-binding "a") 'self-insert-command)
- --- 348,355 ----
          (re-search-backward "`\\([^`']+\\)'" nil t)
          (help-xref-button 1 'help-function-def real-function file-name))))
      (princ ".")
!     (with-current-buffer standard-output (fill-paragraph nil))
!     (terpri) (terpri)
      (when (commandp function)
        (if (and (eq function 'self-insert-command)
               (eq (key-binding "a") 'self-insert-command)
------- End of forwarded message -------