From xemacs-m  Sat Aug  9 04:21:14 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 EAA12121
	for <xemacs-beta@xemacs.org>; Sat, 9 Aug 1997 04:21:12 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.6/8.8.6/Debian/GNU) id CAA13070;
	Sat, 9 Aug 1997 02:21:32 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: `info.el'; yet another... elide redundant material in node headings.
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: text/plain; charset=US-ASCII
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 09 Aug 1997 02:21:28 -0700
Message-ID: <87yb6byanb.fsf@bittersweet.inetarena.com>
Lines: 53
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta16) - "Budapest"

 Do you get the feeling I send things too quickly?  This will elide
the File and current Node headings, since they are displayed in the
modeline.  I think I should start saving the sending of patches until
I have something actually finished...  But had I known it wasn't
finished, I'd not have sent them, I suppose.

 Again, I have this all under CVS, so I can generate a patch against
plain beta16 if anyone would like it.  That may be preferable to
applying 5 or 6 patches to the same block of code...  Unless you're
patch happy. :-) ^^^^


Index: lisp/packages/info.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/packages/info.el,v
retrieving revision 1.1.1.2.2.8
diff -u -r1.1.1.2.2.8 info.el
--- info.el	1997/08/09 08:06:32	1.1.1.2.2.8
+++ info.el	1997/08/09 09:12:34
@@ -2511,21 +2511,29 @@
       ;; 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)
+      (let ((extent nil)
+	    (len 0)
+	    (done nil)
 	    (p (point-min)))
+	(goto-char (point-min))
+	(re-search-forward "Node: *[^,]+,  " nil t)
+	(setq len (- (point) (point-min))
+	      extent (make-extent (point-min) (point)))
+	(set-extent-property extent 'invisible t)
 	(while (not done)
 	  (goto-char p)
 	  (end-of-line)
-	  (if (< (current-column) 78)
+	  (if (< (current-column) (+ 78 len))
 	      (setq done t)
 	    (goto-char p)
-	    (forward-char 79)
+	    (forward-char (+ 79 len))
 	    (re-search-backward "," nil t)
 	    (forward-char 1)
 	    (insert "\n")
 	    (just-one-space)
 	    (backward-delete-char 1)
-	    (setq p (point)))))
+	    (setq p (point)
+		  len 0))))
       (toggle-read-only 1)
       ;; Highlight xrefs in the top few lines of the node
       (goto-char (point-min))

