mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(server-sentinel): Set query-on-exit flag to nil on new client processes

Browse Source 
(it isn't inherited from the server process).
This commit is contained in:
Romain Francoise 2005-10-24 11:06:03 +00:00
parent 175a97e423
commit cbfc02e4f0
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -59,6 +59,9 @@
2005-10-24 Romain Francoise <romain@orebokech.com>
* server.el (server-sentinel): Set query-on-exit flag to nil on
new client processes (it isn't inherited from the server process).
* replace.el (occur-engine): Rearrange text properties.
2005-10-23 Stefan Monnier <monnier@iro.umontreal.ca>

5
lisp/server.el
View File

@ -189,6 +189,11 @@ are done with it in the server.")
(not server-existing-buffer))
(server-temp-file-p)))
(kill-buffer (current-buffer)))))))
;; 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" (process-status proc)) proc))
(defun server-select-display (display)