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)) |