From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 11 Oct 2007 11:44:05 +0000 (+0000)
Subject: (follow-stop-intercept-process-output):
X-Git-Tag: emacs-pretest-23.0.90~10427
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ee4a6c59337db9a1267a2d4839188ea59fc92b8;p=emacs.git

(follow-stop-intercept-process-output):
Use `follow-call-process-filter' rather than `process-filter'.
Simplify.
---

diff --git a/lisp/follow.el b/lisp/follow.el
index a1a0c57c078..55a331a22d3 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -1820,17 +1820,14 @@ would interfere with some other package.  If this happens, please
 report this using the `report-emacs-bug' function."
   (interactive)
   (follow-tidy-process-filter-alist)
-  (let ((list (process-list)))
-    (while list
-      (if (eq (process-filter (car list)) 'follow-generic-filter)
-	  (progn
-	    (follow-call-set-process-filter
-	     (car list)
-	     (cdr-safe (assq (car list) follow-process-filter-alist)))
-	    (setq follow-process-filter-alist
-		  (delq (assq (car list) follow-process-filter-alist)
-			follow-process-filter-alist))))
-      (setq list (cdr list))))
+  (dolist (process (process-list))
+    (when (eq (follow-call-process-filter process) 'follow-generic-filter)
+      (follow-call-set-process-filter
+       process
+       (cdr-safe (assq process follow-process-filter-alist)))
+      (setq follow-process-filter-alist
+	    (delq (assq process follow-process-filter-alist)
+		  follow-process-filter-alist))))
   (setq follow-intercept-processes nil))
 
 ;;}}}