From xemacs-m  Mon Sep 15 10:19: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 KAA07375
	for <xemacs-beta@xemacs.org>; Mon, 15 Sep 1997 10:19:31 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.7/8.8.7/Debian/GNU) id IAA06683;
	Mon, 15 Sep 1997 08:19:34 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] another double click for `info'
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_Mon_Sep_15_08:19:32_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg@inetarena.com (Karl M. Hegbloom)
Date: 15 Sep 1997 08:19:32 -0700
Message-ID: <87sov6eha3.fsf@bittersweet.inetarena.com>
Lines: 48
X-Mailer: Gnus v5.5/XEmacs 20.3(beta20) - "Tirana"

--Multipart_Mon_Sep_15_08:19:32_1997-1
Content-Type: text/plain; charset=US-ASCII

 Has anyone else been reading Infos?  (I should be reading them
instead of hacking the mode...)  You can double click to move around
now.  See: (Info-mouse-track-double-click-hook)


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

	* packages/info.el (Info-mouse-track-double-click-hook): follow
 	the top menu item when double click in bottom 1/4 and middle 1/3


--Multipart_Mon_Sep_15_08:19:32_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.1
retrieving revision 1.1.1.1.2.1
diff -u -r1.1.1.1 -r1.1.1.1.2.1
--- info.el	1997/09/15 07:53:02	1.1.1.1
+++ info.el	1997/09/15 15:14:38	1.1.1.1.2.1
@@ -2257,6 +2257,11 @@
 		(and (>= x w/3) (<= x (+ w/3 w/3))))
 	   (Info-up)
 	   t)
+	  ;; In the bottom 1/4 and inside the middle 1/3
+	  ((and (>= y (+ h/4 h/4 h/4))
+		(and (>= x w/3) (<= x (+ w/3 w/3))))
+	   (Info-nth-menu-item 1)
+	   t)
 	  ;; In the lower 3/4 and the right 1/2
 	  ;; OR in the upper 1/4 and the right 1/3
 	  ((or (and (>= y h/4) (>= x w/2))


--Multipart_Mon_Sep_15_08:19:32_1997-1
Content-Type: text/plain; charset=US-ASCII

mailto:karlheg@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3.1+hamm  Linux pre-2.0.31-9+select+QNX  AMD K5 PR-133

--Multipart_Mon_Sep_15_08:19:32_1997-1--

