Mercurial > emacs
changeset 26174:6860bca6e233
(comint-output-filter): Make the Comint buffer current
for the comint-preoutput-filter-functions.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 25 Oct 1999 13:43:15 +0000 |
| parents | 2fa4ca761d04 |
| children | 1c27b15349bf |
| files | lisp/comint.el |
| diffstat | 1 files changed, 9 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Mon Oct 25 13:32:00 1999 +0000 +++ b/lisp/comint.el Mon Oct 25 13:43:15 1999 +0000 @@ -1349,16 +1349,15 @@ ;; is to keep comint-last-input-end from moving forward ;; when output is inserted. (defun comint-output-filter (process string) - ;; First check for killed buffer (let ((oprocbuf (process-buffer process))) - (let ((functions comint-preoutput-filter-functions)) - (while (and functions string) - (setq string (funcall (car functions) string)) - (setq functions (cdr functions)))) - (if (and string oprocbuf (buffer-name oprocbuf)) - (let ((obuf (current-buffer)) - (opoint nil) (obeg nil) (oend nil)) - (set-buffer oprocbuf) + ;; First check for killed buffer or no input. + (when (and string oprocbuf (buffer-name oprocbuf)) + (with-current-buffer oprocbuf + (let ((functions comint-preoutput-filter-functions)) + (while (and functions string) + (setq string (funcall (car functions) string)) + (setq functions (cdr functions)))) + (let (opoint obeg oend) (setq opoint (point)) (setq obeg (point-min)) (setq oend (point-max)) @@ -1389,8 +1388,7 @@ (narrow-to-region obeg oend) (goto-char opoint) - (run-hook-with-args 'comint-output-filter-functions string) - (set-buffer obuf))))) + (run-hook-with-args 'comint-output-filter-functions string)))))) (defun comint-preinput-scroll-to-bottom () "Go to the end of buffer in all windows showing it.