[Emacs-diffs] Changes to emacs/lisp/eshell/esh-mode.el, v [EMACS_22_BASE]

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Glenn Morris <gm>       07/11/07 03:32:42

Index: esh-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/esh-mode.el,v
retrieving revision 1.28.2.2
retrieving revision 1.28.2.3
diff -u -b -r1.28.2.2 -r1.28.2.3
--- esh-mode.el 22 Sep 2007 02:44:27 -0000      1.28.2.2
+++ esh-mode.el 7 Nov 2007 03:32:41 -0000       1.28.2.3
@@ -775,9 +775,8 @@
        (setq string (funcall (car functions) string))
        (setq functions (cdr functions))))
     (if (and string oprocbuf (buffer-name oprocbuf))
-       (let ((obuf (current-buffer))
-             opoint obeg oend)
-         (set-buffer oprocbuf)
+       (let (opoint obeg oend)
+         (with-current-buffer oprocbuf
          (setq opoint (point))
          (setq obeg (point-min))
          (setq oend (point-max))
@@ -805,8 +804,7 @@
            (force-mode-line-update))
          (narrow-to-region obeg oend)
          (goto-char opoint)
-         (eshell-run-output-filters)
-         (set-buffer obuf)))))
+           (eshell-run-output-filters))))))
 
 (defun eshell-run-output-filters ()
   "Run the `eshell-output-filter-functions' on the current output."