Mercurial > emacs
comparison lisp/comint.el @ 4949:4b50104fbdec
(comint-postoutput-scroll-to-bottom):
Don't treat minibuffer window specially.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 10 Nov 1993 07:10:58 +0000 |
parents | e495404b5263 |
children | 3be990e478dc |
comparison
equal
deleted
inserted
replaced
4948:7653c78ac0c1 | 4949:4b50104fbdec |
---|---|
1189 This function should be in the list `comint-output-filter-functions'." | 1189 This function should be in the list `comint-output-filter-functions'." |
1190 (let* ((selected (selected-window)) | 1190 (let* ((selected (selected-window)) |
1191 (current (current-buffer)) | 1191 (current (current-buffer)) |
1192 (process (get-buffer-process current)) | 1192 (process (get-buffer-process current)) |
1193 (scroll comint-scroll-to-bottom-on-output)) | 1193 (scroll comint-scroll-to-bottom-on-output)) |
1194 (if (and process (not (window-minibuffer-p selected))) | 1194 (if process |
1195 (walk-windows | 1195 (walk-windows |
1196 (function (lambda (window) | 1196 (function (lambda (window) |
1197 (if (eq (window-buffer window) current) | 1197 (if (eq (window-buffer window) current) |
1198 (progn | 1198 (progn |
1199 (select-window window) | 1199 (select-window window) |
1212 (>= (point) (process-mark process))) | 1212 (>= (point) (process-mark process))) |
1213 (save-excursion | 1213 (save-excursion |
1214 (goto-char (point-max)) | 1214 (goto-char (point-max)) |
1215 (recenter -1))) | 1215 (recenter -1))) |
1216 (select-window selected))))) | 1216 (select-window selected))))) |
1217 'not-minibuf t)))) | 1217 nil t)))) |
1218 | 1218 |
1219 (defun comint-show-maximum-output () | 1219 (defun comint-show-maximum-output () |
1220 "Put the end of the buffer at the bottom of the window." | 1220 "Put the end of the buffer at the bottom of the window." |
1221 (interactive) | 1221 (interactive) |
1222 (goto-char (point-max)) | 1222 (goto-char (point-max)) |