From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 24 Sep 2002 15:16:39 +0000 (+0000)
Subject: (eshell-occur-mode-mouse-goto, eshell-poor-mans-grep): Remove references to
X-Git-Tag: ttn-vms-21-2-B4~13076
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f552813381994f6bd1ffa56f7179a6d919a351f;p=emacs.git

(eshell-occur-mode-mouse-goto, eshell-poor-mans-grep): Remove references to
`occur-buffer'.
---

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)