Mercurial > emacs
changeset 47597:8094bb2ffe5b
(eshell-occur-mode-mouse-goto, eshell-poor-mans-grep): Remove references to
`occur-buffer'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 24 Sep 2002 15:16:05 +0000 |
| parents | dae15ca3bea7 |
| children | 0025c3f82558 |
| files | lisp/eshell/em-unix.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/eshell/em-unix.el Tue Sep 24 10:18:05 2002 +0000 +++ b/lisp/eshell/em-unix.el Tue Sep 24 15:16:05 2002 +0000 @@ -641,13 +641,12 @@ (defun eshell-occur-mode-mouse-goto (event) "In Occur mode, go to the occurrence whose line you click on." (interactive "e") - (let (buffer pos) + (let (pos) (save-excursion (set-buffer (window-buffer (posn-window (event-end event)))) (save-excursion (goto-char (posn-point (event-end event))) - (setq pos (occur-mode-find-occurrence)) - (setq buffer occur-buffer))) + (setq pos (occur-mode-find-occurrence)))) (pop-to-buffer (marker-buffer pos)) (goto-char (marker-position pos)))) @@ -683,7 +682,6 @@ (if string (insert string)) (setq string nil files (cdr files))))) - (setq occur-buffer (current-buffer)) (local-set-key [mouse-2] 'eshell-occur-mode-mouse-goto) (local-set-key [(control ?c) (control ?c)] 'eshell-occur-mode-goto-occurrence)