Mercurial > emacs

comparison lisp/follow.el @ 79037:e68bb9eaf3a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(follow-stop-intercept-process-output): Use `follow-call-process-filter' rather than `process-filter'.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 11 Oct 2007 11:52:41 +0000
parents 31b72d0abff5
children 6ddbf3d3f1a7
comparison
equal deleted inserted replaced
79036:ef2bf5b448b2 79037:e68bb9eaf3a5
1898 report this using the `report-emacs-bug' function." 1898 report this using the `report-emacs-bug' function."
1899 (interactive) 1899 (interactive)
1900 (follow-tidy-process-filter-alist) 1900 (follow-tidy-process-filter-alist)
1901 (let ((list (process-list))) 1901 (let ((list (process-list)))
1902 (while list 1902 (while list
1903 (if (eq (process-filter (car list)) 'follow-generic-filter) 1903 (if (eq (follow-call-process-filter (car list)) 'follow-generic-filter)
1904 (progn 1904 (progn
1905 (follow-call-set-process-filter 1905 (follow-call-set-process-filter
1906 (car list) 1906 (car list)
1907 (cdr-safe (assq (car list) follow-process-filter-alist))) 1907 (cdr-safe (assq (car list) follow-process-filter-alist)))
1908 (setq follow-process-filter-alist 1908 (setq follow-process-filter-alist