mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix logic in 'server-kill-emacs-query-function'

Browse source 
* lisp/server.el (server-kill-emacs-query-function): Correct the
logic that controls whether the user is asked for confirmation.
(Bug#21723)
This commit is contained in:
Eli Zaretskii 2015-10-21 19:50:10 +03:00
parent e5ece3229d
commit 5dc48a2da9
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/server.el
View file

@ -1491,13 +1491,12 @@ specifically for the clients and did not exist before their request for it."
(defun server-kill-emacs-query-function () (defun server-kill-emacs-query-function ()
"Ask before exiting Emacs if it has live clients." "Ask before exiting Emacs if it has live clients."
(or (not server-clients) (or (not (let (live-client)
(let (live-client)
(dolist (proc server-clients) (dolist (proc server-clients)
(when (memq t (mapcar 'buffer-live-p (process-get (when (memq t (mapcar 'buffer-live-p (process-get
proc 'buffers))) proc 'buffers)))
(setq live-client t))) (setq live-client t)))
live-client) live-client))
(yes-or-no-p "This Emacs session has clients; exit anyway? "))) (yes-or-no-p "This Emacs session has clients; exit anyway? ")))
(defun server-kill-buffer () (defun server-kill-buffer ()