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

diff -r ef2bf5b448b2 -r e68bb9eaf3a5 lisp/follow.el
--- a/lisp/follow.el	Thu Oct 11 04:23:29 2007 +0000
+++ b/lisp/follow.el	Thu Oct 11 11:52:41 2007 +0000
@@ -1900,7 +1900,7 @@
   (follow-tidy-process-filter-alist)
   (let ((list (process-list)))
     (while list
-      (if (eq (process-filter (car list)) 'follow-generic-filter)
+      (if (eq (follow-call-process-filter (car list)) 'follow-generic-filter)
 	  (progn
 	    (follow-call-set-process-filter
 	     (car list)