From xemacs-m  Fri Jul 25 15:05:50 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 PAA12988
	for <xemacs-beta@xemacs.org>; Fri, 25 Jul 1997 15:05:48 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id NAA24278;
	Fri, 25 Jul 1997 13:04:44 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] `lisp/packages/info.el': allow colons in menu items.
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_Fri_Jul_25_13:04:44_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 25 Jul 1997 13:04:44 -0700
Message-ID: <87g1t2525f.fsf@bittersweet.inetarena.com>
Lines: 90
X-Mailer: Gnus v5.4.63/XEmacs 20.3(beta14) - "Vienna"

--Multipart_Fri_Jul_25_13:04:44_1997-1
Content-Type: text/plain; charset=US-ASCII


 Did I send this already?  (any deja-vu?)  I need to check in so I can
try and tackle the `localdir' thing. :-)

 The MIT-Scheme manual has menu entries with colons in the function
names.  This makes `info.el' highlight them correctly.  All menu items
must have whitespace following the colon.



--Multipart_Fri_Jul_25_13:04:44_1997-1
Content-Type: text/plain; charset=US-ASCII

1997-07-23  Karl M. Hegbloom  <karlheg@inetarena.com>

	* packages/info.el: (Info-fontify-node) Allow colons in menu
 	names.  There must be whitespace following the menu ending colon.


--Multipart_Fri_Jul_25_13:04:44_1997-1
Content-Type: text/plain; charset=US-ASCII

=== cd /usr/local/src/xemacs-20/lisp/packages/
=== cvs -d /usr/local/cvsroot diff -u info.el

Index: info.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/packages/info.el,v
retrieving revision 1.1.1.2.2.1
diff -u -r1.1.1.2.2.1 info.el
--- info.el	1997/07/23 18:57:38	1.1.1.2.2.1
+++ info.el	1997/07/23 18:44:56
@@ -2345,7 +2345,8 @@
 ;;	       (not (string-match "\\<Index\\>" Info-current-node))
 ;;	       (< (- (point-max) (point)) 10000)
 	       )
-	  (while (re-search-forward "^\\* \\([^:\t\n]*\\):" nil t)
+	  (while (re-search-forward
+		  "^\\* \\([^\t\n]*\\):?:[ \t\n]" nil t)
 	    (Info-highlight-region (match-beginning 1) (match-end 1)
 				   'info-node ;lucid
 				   )))

--Multipart_Fri_Jul_25_13:04:44_1997-1
Content-Type: text/plain; charset=US-ASCII

($xe/man/ChangeLog)
1997-07-23  Karl M. Hegbloom  <karlheg@inetarena.com>

	* ../info/dir: space after ::


--Multipart_Fri_Jul_25_13:04:44_1997-1
Content-Type: text/plain; charset=US-ASCII

=== cd /usr/local/src/xemacs-20/info/
=== cvs -d /usr/local/cvsroot diff -u dir

Index: dir
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/info/dir,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 dir
--- dir	1997/07/14 03:08:37	1.1.1.2
+++ dir	1997/07/23 19:04:59
@@ -85,9 +85,9 @@
 * Widget::	An Emacs Lisp widget library
 * tm-en::	Tools for Mime (English version)
 * tm-mh-e-en::	Tools for Mime for MH-E (English version)
-* gnus-mime-en::Tools for Mime for Gnus (English version)
+* gnus-mime-en:: Tools for Mime for Gnus (English version)
 * tm-vm-en::    Tools for Mime for VM
 * tm-ja::	Tools for Mime (Japanese version)
 * tm-mh-e-ja::	Tools for Mime for MH-E (Japanese version)
-* gnus-mime-ja::Tools for Mime for Gnus (Japanese version)
+* gnus-mime-ja:: Tools for Mime for Gnus (Japanese version)
 * Locals:

--Multipart_Fri_Jul_25_13:04:44_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_Fri_Jul_25_13:04:44_1997-1--

