emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/eshell/esh-mode.el,v
Date: Wed, 07 Nov 2007 03:33:56 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/11/07 03:33:56

Index: esh-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/esh-mode.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- esh-mode.el 21 Oct 2007 07:33:32 -0000      1.31
+++ esh-mode.el 7 Nov 2007 03:33:56 -0000       1.32
@@ -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."




reply via email to

[Prev in Thread] Current Thread [Next in Thread]