Mercurial > hg > xemacs-beta

comparison lisp/prim/replace.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
277 (require 'mode-motion) 277 (require 'mode-motion)
278 (setq mode-motion-hook 'mode-motion-highlight-line) 278 (setq mode-motion-hook 'mode-motion-highlight-line)
279 (run-hooks 'occur-mode-hook)) 279 (run-hooks 'occur-mode-hook))
280 280
281 (defun occur-mode-mouse-goto (e) 281 (defun occur-mode-mouse-goto (e)
282 "go to occurence highlighted by mouse. This function is only reasonable when bound 282 "Go to the occurrence highlighted by mouse.
283 to a mouse key in the occur buffer" 283 This function is only reasonable when bound to a mouse key in the occur buffer"
284 (interactive "e") 284 (interactive "e")
285 (let ((window-save (selected-window)) 285 (let ((window-save (selected-window))
286 (frame-save (selected-frame))) 286 (frame-save (selected-frame)))
287 ;; preserve the window/frame setup 287 ;; preserve the window/frame setup
288 (unwind-protect 288 (unwind-protect