diff options
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el index 55e3005e981..b313986d6a2 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -308,6 +308,11 @@ message." (defun server-sentinel (proc msg) "The process sentinel for Emacs server connections." + ;; If this is a new client process, set the query-on-exit flag to nil + ;; for this process (it isn't inherited from the server process). + (when (and (eq (process-status proc) 'open) + (process-query-on-exit-flag proc)) + (set-process-query-on-exit-flag proc nil)) (server-log (format "Status changed to %s: %s" (process-status proc) msg) proc) (server-delete-client proc)) |