From df292aeaa73c01a7685ff34c9e0265df859d2d42 Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Sun, 24 Oct 2021 11:21:23 -0700 Subject: [PATCH 2/3] Stop searching for live clients once we find one lisp/server.el (server-kill-emacs-query-function): Use 'seq-some' to search for live clients. --- lisp/server.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/server.el b/lisp/server.el index 5306a54776..5988560c83 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1581,12 +1581,10 @@ server-done (defun server-kill-emacs-query-function () "Ask before exiting Emacs if it has live clients." - (or (not (let (live-client) - (dolist (proc server-clients) - (when (memq t (mapcar #'buffer-live-p - (process-get proc 'buffers))) - (setq live-client t))) - live-client)) + (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? "))) (defun server-kill-buffer () -- 2.25.1