From xemacs-m  Sat Aug  9 03:15:33 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id DAA12010
	for <xemacs-beta@xemacs.org>; Sat, 9 Aug 1997 03:15:30 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.6/8.8.6/Debian/GNU) id BAA12868;
	Sat, 9 Aug 1997 01:15:49 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] `info.el': yet another small adjustment.
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Sat_Aug__9_01:15:49_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 09 Aug 1997 01:15:49 -0700
Message-ID: <872043zs96.fsf@bittersweet.inetarena.com>
Lines: 88
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta16) - "Budapest"

--Multipart_Sat_Aug__9_01:15:49_1997-1
Content-Type: text/plain; charset=US-ASCII

 <*sigh*>

(Info-find-node "lispref.info" "Window-Level Event Position Info")

 I found a node that needs the top line split across three lines.
Heres another patch up, to be applied on top of the others.  I can
supply you with a single diff against beta16, if you like; I've got it
in CVS, so it'll be easy to make one.


1997-08-09  Karl M. Hegbloom  <karlheg@inetarena.com>

	* packages/info.el: (Info-fontify-node) will now split top line
 	that spans 3 lines.  (Info-extract-pointer) adjust to match.


--Multipart_Sat_Aug__9_01:15:49_1997-1
Content-Type: text/plain; charset=US-ASCII

Index: lisp/packages/info.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/packages/info.el,v
retrieving revision 1.1.1.2.2.7
diff -u -r1.1.1.2.2.7 info.el
--- info.el	1997/08/09 05:17:01	1.1.1.2.2.7
+++ info.el	1997/08/09 08:02:37
@@ -1258,7 +1258,7 @@
 (defun Info-extract-pointer (name &optional errorname)
   (save-excursion
    (goto-char (point-min))
-   (forward-line 2)
+   (forward-line 4)
    (let ((case-fold-search t))
      (if (re-search-backward (concat name ":") nil t)
 	 (progn
@@ -2507,19 +2507,26 @@
       ;; Clear the old extents
       (map-extents #'(lambda (x y) (delete-extent x))
 		   (current-buffer) (point-min) (point-max) nil)
-      ;; Break the top line iff it is > 79 characters.
-      (goto-char (point-min))
-      (end-of-line)
-      (when (> (current-column) 78)
-	(toggle-read-only -1)
-	(goto-char (point-min))
-	(forward-char 79)
-	(re-search-backward "," nil t)
-	(forward-char 1)
-	(insert "\n")
-	(just-one-space)
-	(backward-delete-char 1)
-	(toggle-read-only 1))
+      ;; Break the top line iff it is > 79 characters.  Some info nodes
+      ;; have top lines that span 3 lines because of long node titles.
+      ;; eg: (Info-find-node "lispref.info" "Window-Level Event Position Info")
+      (toggle-read-only -1)
+      (let ((done nil)
+	    (p (point-min)))
+	(while (not done)
+	  (goto-char p)
+	  (end-of-line)
+	  (if (< (current-column) 78)
+	      (setq done t)
+	    (goto-char p)
+	    (forward-char 79)
+	    (re-search-backward "," nil t)
+	    (forward-char 1)
+	    (insert "\n")
+	    (just-one-space)
+	    (backward-delete-char 1)
+	    (setq p (point)))))
+      (toggle-read-only 1)
       ;; Highlight xrefs in the top few lines of the node
       (goto-char (point-min))
       (if (looking-at "^File: [^,: \t]+,?[ \t]+")

--Multipart_Sat_Aug__9_01:15:49_1997-1
Content-Type: text/plain; charset=US-ASCII

mailto:karlheg+sig@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.0.30+parport AMD K5 PR-133

--Multipart_Sat_Aug__9_01:15:49_1997-1--

