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

[Glenn Morris]

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

Index: esh-proc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/esh-proc.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- esh-proc.el 26 Jul 2007 05:26:54 -0000      1.16
+++ esh-proc.el 7 Nov 2007 03:34:25 -0000       1.17
@@ -335,7 +335,7 @@
 PROC is the process for which we're inserting output.  STRING is the
 output."
   (when (buffer-live-p (process-buffer proc))
-    (set-buffer (process-buffer proc))
+    (with-current-buffer (process-buffer proc)
     (let ((entry (assq proc eshell-process-list)))
       (when entry
        (setcar (nthcdr 3 entry)
@@ -346,13 +346,13 @@
              (setcar (nthcdr 3 entry) nil)
              (setcar (nthcdr 4 entry) t)
              (eshell-output-object data nil (cadr entry))
-             (setcar (nthcdr 4 entry) nil))))))))
+               (setcar (nthcdr 4 entry) nil)))))))))
 
 (defun eshell-sentinel (proc string)
   "Generic sentinel for command processes.  Reports only signals.
 PROC is the process that's exiting.  STRING is the exit message."
   (when (buffer-live-p (process-buffer proc))
-    (set-buffer (process-buffer proc))
+    (with-current-buffer (process-buffer proc)
     (unwind-protect
        (let* ((entry (assq proc eshell-process-list)))
 ;        (if (not entry)
@@ -367,7 +367,7 @@
                    (eshell-close-handles (process-exit-status proc) 'nil
                                          (cadr entry))))
              (eshell-remove-process-entry entry))))
-      (run-hook-with-args 'eshell-kill-hook proc string))))
+       (run-hook-with-args 'eshell-kill-hook proc string)))))
 
 (defun eshell-process-interact (func &optional all query)
   "Interact with a process, using PROMPT if more than one, via FUNC.