From xemacs-m  Tue Dec 31 09:06:13 1996
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id JAA21516 for <xemacs-beta@xemacs.org>; Tue, 31 Dec 1996 09:06:10 -0600 (CST)
Received: from kiki.icd.teradyne.com (kiki.icd.teradyne.com [131.101.1.30]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id KAA26992 for <xemacs-beta@xemacs.org>; Tue, 31 Dec 1996 10:09:00 -0500 (EST)
Received: from spacely.icd.teradyne.com (spacely.icd.teradyne.com [131.101.10.9]) by kiki.icd.teradyne.com (8.7.1/8.7.1) with SMTP id KAA17251 for <xemacs-beta@xemacs.org>; Tue, 31 Dec 1996 10:03:38 -0500 (EST)
Received: from spacely by spacely.icd.teradyne.com (SMI-8.6/SMI-SVR4)
	id KAA15982; Tue, 31 Dec 1996 10:05:40 -0500
Message-Id: <199612311505.KAA15982@spacely.icd.teradyne.com>
X-Mailer: exmh version 2.0beta 12/23/96
To: xemacs-beta@xemacs.org
Subject: Re: Button-2 in occur
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Tue, 31 Dec 1996 10:05:40 -0500
From: Vinnie Shelton  <shelton@icd.teradyne.com>

I hope this isn't the n'th time you've seen this.  As you can tell from the 
header, I mistakenly sent this to "xemacs-beta-request" - I was still 
learning how to use the fancy new address completion facility in exmh - and 
now I can't remember if I resent this properly.  Anyway, this patch fixes
the bug which was still around in B6.

Happy New Year!
  vin

------- Forwarded Message

To: xemacs-beta-request@xemacs.org
Subject: Re: Button-2 in occur 
In-reply-to: shelton's message of Mon, 16 Dec 1996 00:18:27 -0500.
reply-to: acs@acm.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Mon, 16 Dec 1996 13:27:00 -0500
From: Vinnie Shelton  <shelton@spacely>

> In 19.15B4, button-2 in *Occur* now pastes, instead of selecting.  This
> seems like the same problem we had with buffer selection.

Well, that wasn't too tough.

- --vin

- --- replace.el~	Thu Dec  5 15:05:18 1996
+++ replace.el	Mon Dec 16 13:18:27 1996
@@ -258,7 +258,7 @@
     ()
   (setq occur-mode-map (make-sparse-keymap))
   (set-keymap-name occur-mode-map 'occur-mode-map) ; XEmacs
- -  (define-key occur-mode-map [mouse-2] 'occur-mode-mouse-goto)
+  (define-key occur-mode-map 'button2 'occur-mode-mouse-goto)
   (define-key occur-mode-map "\C-c\C-c" 'occur-mode-goto-occurrence)
   (define-key occur-mode-map "\C-m" 'occur-mode-goto-occurrence))
 
@@ -295,7 +295,7 @@
 ;    (pop-to-buffer buffer)
 ;    (goto-char (marker-position pos))))
 
- -(defun occur-mode-mouse-goto (event)
+(defun occur-mode-mouse-goto (e)
   "Go to the occurrence highlighted by mouse.
 This function is only reasonable when bound to a mouse key in the occur buffer"
   (interactive "e")



------- End of Forwarded Message



