diff options
| author | Juri Linkov <juri@linkov.net> | 2018-01-18 23:43:38 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2018-01-18 23:43:38 +0200 |
| commit | 5ec3853326933bef899de1a8fee66d902ea8f7c9 (patch) | |
| tree | ba99e7958355ea91fd5d5841cdeee81611e4509a /lisp/files.el | |
| parent | 694ee38f8b7bd10f1d0eae8cb251daea70b5c820 (diff) | |
| download | emacs-5ec3853326933bef899de1a8fee66d902ea8f7c9.tar.gz emacs-5ec3853326933bef899de1a8fee66d902ea8f7c9.tar.bz2 emacs-5ec3853326933bef899de1a8fee66d902ea8f7c9.zip | |
Improve "*Process List*" and "*Local Variables*". (Bug#30016)
* lisp/files.el (save-buffers-kill-emacs): Display "*Process List*"
buffer at bottom.
(hack-local-variables-confirm): Display "*Local Variables*" buffer
at bottom.
* lisp/simple.el (process-menu-mode): Increase buffer column width
from 15 to 25.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 5b8dff71310..7194b56fef2 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3315,7 +3315,15 @@ n -- to ignore the local variables list.") ;; Display the buffer and read a choice. (save-window-excursion - (pop-to-buffer buf) + (pop-to-buffer buf `((display-buffer--maybe-same-window + display-buffer-reuse-window + display-buffer--maybe-pop-up-frame-or-window + display-buffer-at-bottom) + ,(if temp-buffer-resize-mode + '(window-height . resize-temp-buffer-window) + '(window-height . fit-window-to-buffer)) + ,(when temp-buffer-resize-mode + '(preserve-size . (nil . t))))) (let* ((exit-chars '(?y ?n ?\s ?\C-g ?\C-v)) (prompt (format "Please type %s%s: " (if offer-save "y, n, or !" "y or n") @@ -6917,8 +6925,17 @@ if any returns nil. If `confirm-kill-emacs' is non-nil, calls it." (setq active t)) (setq processes (cdr processes))) (or (not active) - (with-current-buffer-window - (get-buffer-create "*Process List*") nil + (with-displayed-buffer-window + (get-buffer-create "*Process List*") + `((display-buffer--maybe-same-window + display-buffer-reuse-window + display-buffer--maybe-pop-up-frame-or-window + display-buffer-at-bottom) + ,(if temp-buffer-resize-mode + '(window-height . resize-temp-buffer-window) + '(window-height . fit-window-to-buffer)) + ,(when temp-buffer-resize-mode + '(preserve-size . (nil . t)))) #'(lambda (window _value) (with-selected-window window (unwind-protect |