# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1192103045 0
# Node ID e0bc3c57c9ce1865ebaf37d6e5330b3db39cbe36
# Parent  eebbb85d6283ea9b709d2c941512eda31e62e5f6
(follow-stop-intercept-process-output):
Use `follow-call-process-filter' rather than `process-filter'.
Simplify.

diff -r eebbb85d6283 -r e0bc3c57c9ce lisp/follow.el
--- a/lisp/follow.el	Thu Oct 11 11:22:19 2007 +0000
+++ b/lisp/follow.el	Thu Oct 11 11:44:05 2007 +0000
@@ -1820,17 +1820,14 @@
 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))
 
 ;;}}}