procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't prompt when killing an Emacs client if it's the last client

Browse source 
* lisp/server.el (server-kill-emacs-query-function): Ignore the
current client (if any) when checking for live clients (bug#58404).
This commit is contained in:
Jim Porter 2022-10-09 15:53:27 -07:00
parent 5df95ba039
commit ebc19f56aa
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/server.el
View file

@ -1589,14 +1589,19 @@ specifically for the clients and did not exist before their request for it."
(server-buffer-done (current-buffer))))
(defun server-kill-emacs-query-function ()
"Ask before exiting Emacs if it has live clients.
"Ask before exiting Emacs if it has other live clients.
A \"live client\" is a client with at least one live buffer
associated with it."
(or (not (seq-some (lambda (proc)
(seq-some #'buffer-live-p
(process-get proc 'buffers)))
server-clients))
(yes-or-no-p "This Emacs session has clients; exit anyway? ")))
associated with it. These clients were (probably) started by
external processes that are waiting for some buffers to be
edited. If there are any other clients, we don't want to fail
their waiting processes, so ask the user to be sure."
(let ((this-client (frame-parameter nil 'client)))
(or (not (seq-some (lambda (proc)
(unless (eq proc this-client)
(seq-some #'buffer-live-p
(process-get proc 'buffers))))
server-clients))
(yes-or-no-p "This Emacs session has other clients; exit anyway? "))))
(defun server-kill-buffer ()
"Remove the current buffer from its clients' buffer list.