Mercurial > hg > xemacs-beta

diff lisp/prim/replace.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 54cc21c15cbb
children 4be1180a9e89
line wrap: on
line diff
--- a/lisp/prim/replace.el	Mon Aug 13 09:05:11 2007 +0200
+++ b/lisp/prim/replace.el	Mon Aug 13 09:05:42 2007 +0200
@@ -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) ; XEmacs
   (define-key occur-mode-map "\C-c\C-c" 'occur-mode-goto-occurrence)
   (define-key occur-mode-map "\C-m" 'occur-mode-goto-occurrence))
 
@@ -304,7 +304,7 @@
     ;; preserve the window/frame setup
     (unwind-protect
 	(progn
-	  (mouse-set-point e)
+	  (mouse-set-point event)
 	  (occur-mode-goto-occurrence))
       (select-frame frame-save)
       (select-window window-save))))