[Emacs-diffs] Changes to emacs/lisp/eshell/em-unix.el

[Juanma Barranquero]

Index: emacs/lisp/eshell/em-unix.el
diff -c emacs/lisp/eshell/em-unix.el:1.18 emacs/lisp/eshell/em-unix.el:1.19
*** emacs/lisp/eshell/em-unix.el:1.18   Mon Jun 10 04:32:45 2002
--- emacs/lisp/eshell/em-unix.el        Tue Sep 24 11:16:05 2002
***************
*** 641,653 ****
  (defun eshell-occur-mode-mouse-goto (event)
    "In Occur mode, go to the occurrence whose line you click on."
    (interactive "e")
!   (let (buffer 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)))
      (pop-to-buffer (marker-buffer pos))
      (goto-char (marker-position pos))))
  
--- 641,652 ----
  (defun eshell-occur-mode-mouse-goto (event)
    "In Occur mode, go to the occurrence whose line you click on."
    (interactive "e")
!   (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))))
      (pop-to-buffer (marker-buffer pos))
      (goto-char (marker-position pos))))
  
***************
*** 683,689 ****
                (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)
--- 682,687 ----