# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 940858995 0
# Node ID 6860bca6e2335e424c78679dc7c7e8522b8b0604
# Parent  2fa4ca761d040cad1ca6acf7b0e8b2d490de536e
(comint-output-filter): Make the Comint buffer current
for the comint-preoutput-filter-functions.

diff -r 2fa4ca761d04 -r 6860bca6e233 lisp/comint.el
--- a/lisp/comint.el	Mon Oct 25 13:32:00 1999 +0000
+++ b/lisp/comint.el	Mon Oct 25 13:43:15 1999 +0000
@@ -1349,16 +1349,15 @@
 ;; is to keep comint-last-input-end from moving forward
 ;; when output is inserted.
 (defun comint-output-filter (process string)
-  ;; First check for killed buffer
   (let ((oprocbuf (process-buffer process)))
-    (let ((functions comint-preoutput-filter-functions))
-      (while (and functions string)
-	(setq string (funcall (car functions) string))
-	(setq functions (cdr functions))))
-    (if (and string oprocbuf (buffer-name oprocbuf))
-	(let ((obuf (current-buffer))
-	      (opoint nil) (obeg nil) (oend nil))
-	  (set-buffer oprocbuf)
+    ;; First check for killed buffer or no input.
+    (when (and string oprocbuf (buffer-name oprocbuf))
+      (with-current-buffer oprocbuf
+	(let ((functions comint-preoutput-filter-functions))
+	  (while (and functions string)
+	    (setq string (funcall (car functions) string))
+	    (setq functions (cdr functions))))
+	(let (opoint obeg oend)
 	  (setq opoint (point))
 	  (setq obeg (point-min))
 	  (setq oend (point-max))
@@ -1389,8 +1388,7 @@
 
 	  (narrow-to-region obeg oend)
 	  (goto-char opoint)
-	  (run-hook-with-args 'comint-output-filter-functions string)
-	  (set-buffer obuf)))))
+	  (run-hook-with-args 'comint-output-filter-functions string))))))
 
 (defun comint-preinput-scroll-to-bottom ()
   "Go to the end of buffer in all windows showing it.