From 1ee4a6c59337db9a1267a2d4839188ea59fc92b8 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 11 Oct 2007 11:44:05 +0000 Subject: [PATCH] (follow-stop-intercept-process-output): Use `follow-call-process-filter' rather than `process-filter'. Simplify. --- lisp/follow.el | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) 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)) ;;}}} -- 2.39.2