mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add option to kill a shell buffer when the process ends

Browse source 
* shell.el (shell-kill-buffer-on-quit): Add new option (bug#55426).
(shell): Respect 'shell-kill-buffer-on-quit'.
* NEWS: Mention 'shell-kill-buffer-on-quit'.
This commit is contained in:
Philip Kaludercic 2022-05-15 02:09:46 +02:00
parent efd3e78258
commit 63eb015722
2 changed files with 24 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/shell.el
View file

@ -331,6 +331,12 @@ Useful for shells like zsh that has this feature."
:group 'shell-directories
:version "28.1")
(defcustom shell-kill-buffer-on-exit nil
"Kill a shell buffer after the shell process terminates."
:type 'boolean
:group 'shell
:version "29.1")
(defvar shell-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-c\C-f" 'shell-forward-command)
@ -818,6 +824,17 @@ Make the shell buffer the current buffer, and return it.
(with-temp-buffer
(insert-file-contents startfile)
(buffer-string)))))))
(when shell-kill-buffer-on-exit
(let* ((buffer (current-buffer))
(process (get-buffer-process buffer))
(sentinel (process-sentinel process)))
(set-process-sentinel
process
(lambda (proc event)
(when sentinel
(funcall sentinel proc event))
(unless (buffer-live-p proc)
(kill-buffer buffer))))))
buffer)
;;; Directory tracking