diff options
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/window.el b/lisp/window.el index d9ac0e6d240..f7a547b915a 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -8543,16 +8543,17 @@ displaying that processes's buffer." | |||
| 8543 | 8543 | ||
| 8544 | (defun window--adjust-process-windows () | 8544 | (defun window--adjust-process-windows () |
| 8545 | "Update process window sizes to match the current window configuration." | 8545 | "Update process window sizes to match the current window configuration." |
| 8546 | (dolist (procwin (window--process-window-list)) | 8546 | (when (fboundp 'process-list) |
| 8547 | (let ((process (car procwin))) | 8547 | (dolist (procwin (window--process-window-list)) |
| 8548 | (with-demoted-errors "Error adjusting window size: %S" | 8548 | (let ((process (car procwin))) |
| 8549 | (with-current-buffer (process-buffer process) | 8549 | (with-demoted-errors "Error adjusting window size: %S" |
| 8550 | (let ((size (funcall | 8550 | (with-current-buffer (process-buffer process) |
| 8551 | (or (process-get process 'adjust-window-size-function) | 8551 | (let ((size (funcall |
| 8552 | window-adjust-process-window-size-function) | 8552 | (or (process-get process 'adjust-window-size-function) |
| 8553 | process (cdr procwin)))) | 8553 | window-adjust-process-window-size-function) |
| 8554 | (when size | 8554 | process (cdr procwin)))) |
| 8555 | (set-process-window-size process (cdr size) (car size))))))))) | 8555 | (when size |
| 8556 | (set-process-window-size process (cdr size) (car size)))))))))) | ||
| 8556 | 8557 | ||
| 8557 | (add-hook 'window-configuration-change-hook 'window--adjust-process-windows) | 8558 | (add-hook 'window-configuration-change-hook 'window--adjust-process-windows) |
| 8558 | 8559 | ||