From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 16 Nov 2005 22:23:28 +0000 (+0000)
Subject: (eudc-ph-open-session): Use set-process-query-on-exit-flag.
X-Git-Tag: emacs-pretest-22.0.90~5829
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e46799eac78d61dadb34142fe51d5f8cc65bc1b;p=emacs.git

(eudc-ph-open-session): Use set-process-query-on-exit-flag.
---

diff --git a/lisp/net/eudcb-ph.el b/lisp/net/eudcb-ph.el
index 3aea6030257..30a8efbbae3 100644
--- a/lisp/net/eudcb-ph.el
+++ b/lisp/net/eudcb-ph.el
@@ -184,7 +184,7 @@ SERVER is either a string naming the server or a list (NAME PORT)."
       (setq process (open-network-stream "ph" eudc-ph-process-buffer host port))
       (if (null process)
 	  (throw 'done nil))
-      (process-kill-without-query process)
+      (set-process-query-on-exit-flag process t)
       process)))
 
 (defun eudc-ph-close-session (process)