Mercurial > emacs
changeset 85159:e0bc3c57c9ce
(follow-stop-intercept-process-output):
Use `follow-call-process-filter' rather than `process-filter'.
Simplify.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 11 Oct 2007 11:44:05 +0000 |
| parents | eebbb85d6283 |
| children | a4f0e3028589 |
| files | lisp/follow.el |
| diffstat | 1 files changed, 8 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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)) ;;}}}