Mercurial > emacs
comparison lisp/follow.el @ 16425:215bd0423431
(set-process-filter): Doc fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 12 Oct 1996 02:40:26 +0000 |
parents | 83b3924347a9 |
children | 89f6e1e17d2d |
comparison
equal
deleted
inserted
replaced
16424:8ce8051df140 | 16425:215bd0423431 |
---|---|
1964 (defadvice set-process-filter (before follow-set-process-filter activate) | 1964 (defadvice set-process-filter (before follow-set-process-filter activate) |
1965 "Follow Mode listens to calls to this function to make | 1965 "Follow Mode listens to calls to this function to make |
1966 sure process output will be displayed correctly in buffers | 1966 sure process output will be displayed correctly in buffers |
1967 in which the mode is activated. | 1967 in which the mode is activated. |
1968 | 1968 |
1969 Follow Mode inserts it's own process filter to do it's | 1969 Follow Mode inserts its own process filter to do its |
1970 magic stuff before the real process filter is called." | 1970 magic stuff before the real process filter is called." |
1971 (if follow-intercept-processes | 1971 (if follow-intercept-processes |
1972 (progn | 1972 (progn |
1973 (setq follow-process-filter-alist | 1973 (setq follow-process-filter-alist |
1974 (delq (assq (ad-get-arg 0) follow-process-filter-alist) | 1974 (delq (assq (ad-get-arg 0) follow-process-filter-alist) |
2084 ;;}}} | 2084 ;;}}} |
2085 ;;{{{ The filter | 2085 ;;{{{ The filter |
2086 | 2086 |
2087 ;;; The following section is a naive method to make buffers with | 2087 ;;; The following section is a naive method to make buffers with |
2088 ;;; process output to work with Follow mode. Whenever the start of the | 2088 ;;; process output to work with Follow mode. Whenever the start of the |
2089 ;;; window displaying the buffer is moved, we moves it back to it's | 2089 ;;; window displaying the buffer is moved, we moves it back to its |
2090 ;;; original position and try to select a new window. (If we fail, | 2090 ;;; original position and try to select a new window. (If we fail, |
2091 ;;; the normal redisplay functions of Emacs will scroll it right | 2091 ;;; the normal redisplay functions of Emacs will scroll it right |
2092 ;;; back!) | 2092 ;;; back!) |
2093 | 2093 |
2094 (defun follow-generic-filter (proc output) | 2094 (defun follow-generic-filter (proc output) |