[Emacs-diffs] Changes to emacs/lisp/follow.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/10/11 11:44:06

Index: follow.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/follow.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- follow.el   10 Oct 2007 16:19:07 -0000      1.41
+++ follow.el   11 Oct 2007 11:44:05 -0000      1.42
@@ -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
+  (dolist (process (process-list))
+    (when (eq (follow-call-process-filter process) 'follow-generic-filter)
            (follow-call-set-process-filter
-            (car list)
-            (cdr-safe (assq (car list) follow-process-filter-alist)))
+       process
+       (cdr-safe (assq process follow-process-filter-alist)))
            (setq follow-process-filter-alist
-                 (delq (assq (car list) follow-process-filter-alist)
+           (delq (assq process follow-process-filter-alist)
                        follow-process-filter-alist))))
-      (setq list (cdr list))))
   (setq follow-intercept-processes nil))
 
 ;;}}}