/[emacs]/emacs/lisp/eshell/em-unix.el
ViewVC logotype

Diff of /emacs/lisp/eshell/em-unix.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by rms, Mon Jun 10 08:32:45 2002 UTC revision 1.19 by lektu, Tue Sep 24 15:16:05 2002 UTC
# Line 641  Concatenate FILE(s), or standard input, Line 641  Concatenate FILE(s), or standard input,
641  (defun eshell-occur-mode-mouse-goto (event)  (defun eshell-occur-mode-mouse-goto (event)
642    "In Occur mode, go to the occurrence whose line you click on."    "In Occur mode, go to the occurrence whose line you click on."
643    (interactive "e")    (interactive "e")
644    (let (buffer pos)    (let (pos)
645      (save-excursion      (save-excursion
646        (set-buffer (window-buffer (posn-window (event-end event))))        (set-buffer (window-buffer (posn-window (event-end event))))
647        (save-excursion        (save-excursion
648          (goto-char (posn-point (event-end event)))          (goto-char (posn-point (event-end event)))
649          (setq pos (occur-mode-find-occurrence))          (setq pos (occur-mode-find-occurrence))))
         (setq buffer occur-buffer)))  
650      (pop-to-buffer (marker-buffer pos))      (pop-to-buffer (marker-buffer pos))
651      (goto-char (marker-position pos))))      (goto-char (marker-position pos))))
652    
# Line 683  available..." Line 682  available..."
682                  (if string (insert string))                  (if string (insert string))
683                  (setq string nil                  (setq string nil
684                        files (cdr files)))))                        files (cdr files)))))
           (setq occur-buffer (current-buffer))  
685            (local-set-key [mouse-2] 'eshell-occur-mode-mouse-goto)            (local-set-key [mouse-2] 'eshell-occur-mode-mouse-goto)
686            (local-set-key [(control ?c) (control ?c)]            (local-set-key [(control ?c) (control ?c)]
687                           'eshell-occur-mode-goto-occurrence)                           'eshell-occur-mode-goto-occurrence)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26