[drew.adams@oracle.com: RE: Wrap intro lines in *Help* to standard max length]

[Richard Stallman <rms@gnu.org>]

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

------- Start of forwarded message -------
From: "Drew Adams" <drew.adams@oracle.com>
To: <rms@gnu.org>
Subject: RE: Wrap intro lines in *Help* to standard max length
Date: Tue, 25 Dec 2007 16:17:30 -0800
Message-ID: <DNEMKBNJBGPAOPIJOOICAEDNECAA.drew.adams@oracle.com>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="ISO-8859-15"
In-Reply-To: <E1J7DOu-00038P-LC@fencepost.gnu.org>

> 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 -------