Mercurial > emacs

comparison lisp/follow.el @ 85159:e0bc3c57c9ce

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'. Simplify.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 11 Oct 2007 11:44:05 +0000
parents f03e6bafdaf1
children 62f2f3aa55e2 d38543a1c0f9
comparison
equal deleted inserted replaced
85158:eebbb85d6283 85159:e0bc3c57c9ce
1818 The only reason to call this function is if the Follow mode spy filter 1818 The only reason to call this function is if the Follow mode spy filter
1819 would interfere with some other package. If this happens, please 1819 would interfere with some other package. If this happens, please
1820 report this using the `report-emacs-bug' function." 1820 report this using the `report-emacs-bug' function."
1821 (interactive) 1821 (interactive)
1822 (follow-tidy-process-filter-alist) 1822 (follow-tidy-process-filter-alist)
1823 (let ((list (process-list))) 1823 (dolist (process (process-list))
1824 (while list 1824 (when (eq (follow-call-process-filter process) 'follow-generic-filter)
1825 (if (eq (process-filter (car list)) 'follow-generic-filter) 1825 (follow-call-set-process-filter
1826 (progn 1826 process
1827 (follow-call-set-process-filter 1827 (cdr-safe (assq process follow-process-filter-alist)))
1828 (car list) 1828 (setq follow-process-filter-alist
1829 (cdr-safe (assq (car list) follow-process-filter-alist))) 1829 (delq (assq process follow-process-filter-alist)
1830 (setq follow-process-filter-alist 1830 follow-process-filter-alist))))
1831 (delq (assq (car list) follow-process-filter-alist)
1832 follow-process-filter-alist))))
1833 (setq list (cdr list))))
1834 (setq follow-intercept-processes nil)) 1831 (setq follow-intercept-processes nil))
1835 1832
1836 ;;}}} 1833 ;;}}}
1837 ;;{{{ The filter 1834 ;;{{{ The filter
1838 1835