diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2002-09-24 15:16:39 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2002-09-24 15:16:39 +0000 |
| commit | 2f552813381994f6bd1ffa56f7179a6d919a351f (patch) | |
| tree | 564c059c43671e9e2957934a3fca8a86b69ec0ad | |
| parent | 348e141150f9b983ea4a997c8feed5bd4c45253b (diff) | |
| download | emacs-2f552813381994f6bd1ffa56f7179a6d919a351f.tar.gz | |
(eshell-occur-mode-mouse-goto, eshell-poor-mans-grep): Remove references to
`occur-buffer'.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/eshell/em-unix.el | 6 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d7094c5698..2a18f67df08 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -7,6 +7,9 @@ (sh-mark-line): Likewise. Use 'occur-target and 'occur-match instead of 'occur and 'occur-point. + * eshell/em-unix.el (eshell-occur-mode-mouse-goto) + (eshell-poor-mans-grep): Remove references to `occur-buffer'. + 2002-09-23 Kenichi Handa <handa@etl.go.jp> * international/quail.el (quail-completion): Be sure to scroll diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index b9fce8a55a7..4919e631e15 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el @@ -641,13 +641,12 @@ Concatenate FILE(s), or standard input, to standard output.") (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 @@ available..." (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) |