From xemacs-m  Wed Aug  6 17:26:13 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 RAA27084
	for <xemacs-beta@xemacs.org>; Wed, 6 Aug 1997 17:26:11 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.6/8.8.6/Debian/GNU) id PAA24292;
	Wed, 6 Aug 1997 15:26:16 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] `info.el'; another small fix.
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_Wed_Aug__6_15:26:15_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 06 Aug 1997 15:26:15 -0700
Message-ID: <87u3h3lzi0.fsf@bittersweet.inetarena.com>
Lines: 52
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta16) - "Budapest"

--Multipart_Wed_Aug__6_15:26:15_1997-1
Content-Type: text/plain; charset=US-ASCII

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

	* packages/info.el: (Info-highlight-region) Fixed it to not
 	highlight the indention spaces in xrefs split across lines with
 	indention on the second line.


--Multipart_Wed_Aug__6_15:26:15_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.3
diff -u -r1.1.1.2.2.3 info.el
--- info.el	1997/08/06 22:16:04	1.1.1.2.2.3
+++ info.el	1997/08/06 22:21:33
@@ -2451,7 +2451,19 @@
 ;;; fontification and mousability for info
 
 (defun Info-highlight-region (start end face)
-  (let ((extent (make-extent start end)))
+  (let ((extent nil)
+	(splitp (string-match "\n[ \t]+" (buffer-substring start end))))
+    (if splitp
+	(save-excursion
+	  (setq extent (make-extent start (progn (goto-char start)
+						 (end-of-line)
+						 (point))))
+	  (set-extent-face extent face)
+	  (set-extent-property extent 'info t)
+	  (set-extent-property extent 'highlight t)
+	  (skip-chars-forward "\n\t ")
+	  (setq extent (make-extent (point) end)))
+      (setq extent (make-extent start end)))
     (set-extent-face extent face)
     (set-extent-property extent 'info t)
     (set-extent-property extent 'highlight t)))


--Multipart_Wed_Aug__6_15:26:15_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_Wed_Aug__6_15:26:15_1997-1--

