Mercurial > hg > xemacs-beta

comparison lisp/prim/replace.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents b82b59fe008d
children 441bb1e64a06
comparison
equal deleted inserted replaced
11:91ffe8bd52e4 12:bcdc7deadc19
256 (defvar occur-mode-map ()) 256 (defvar occur-mode-map ())
257 (if occur-mode-map 257 (if occur-mode-map
258 () 258 ()
259 (setq occur-mode-map (make-sparse-keymap)) 259 (setq occur-mode-map (make-sparse-keymap))
260 (set-keymap-name occur-mode-map 'occur-mode-map) ; XEmacs 260 (set-keymap-name occur-mode-map 'occur-mode-map) ; XEmacs
261 (define-key occur-mode-map [mouse-2] 'occur-mode-mouse-goto) 261 (define-key occur-mode-map 'button2 'occur-mode-mouse-goto) ; XEmacs
262 (define-key occur-mode-map "\C-c\C-c" 'occur-mode-goto-occurrence) 262 (define-key occur-mode-map "\C-c\C-c" 'occur-mode-goto-occurrence)
263 (define-key occur-mode-map "\C-m" 'occur-mode-goto-occurrence)) 263 (define-key occur-mode-map "\C-m" 'occur-mode-goto-occurrence))
264 264
265 (defvar occur-buffer nil) 265 (defvar occur-buffer nil)
266 (defvar occur-nlines nil) 266 (defvar occur-nlines nil)
302 (let ((window-save (selected-window)) 302 (let ((window-save (selected-window))
303 (frame-save (selected-frame))) 303 (frame-save (selected-frame)))
304 ;; preserve the window/frame setup 304 ;; preserve the window/frame setup
305 (unwind-protect 305 (unwind-protect
306 (progn 306 (progn
307 (mouse-set-point e) 307 (mouse-set-point event)
308 (occur-mode-goto-occurrence)) 308 (occur-mode-goto-occurrence))
309 (select-frame frame-save) 309 (select-frame frame-save)
310 (select-window window-save)))) 310 (select-window window-save))))
311 311
312 ;; Called occur-mode-find-occurrence in FSF 312 ;; Called occur-mode-find-occurrence in FSF