andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve "*Process List*" and "*Local Variables*". (Bug#30016)

Browse source 
* 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.
This commit is contained in:
Juri Linkov 2018-01-18 23:43:38 +02:00
parent 694ee38f8b
commit 5ec3853326
2 changed files with 23 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/files.el
View file

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

4
lisp/simple.el
View file

@ -3927,7 +3927,9 @@ support pty association, if PROGRAM is nil."
(setq tabulated-list-format [("Process" 15 t)
("PID" 7 t)
("Status" 7 t)
("Buffer" 15 t)
;; 25 is the length of the long standard buffer
;; name "*Async Shell Command*<10>" (bug#30016)
("Buffer" 25 t)
("TTY" 12 t)
("Command" 0 t)])
(make-local-variable 'process-menu-query-only)