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

2005-11-16 22:23:28 +00:00
parent 63fcfa450f
commit 4e46799eac
1 changed files with 1 additions and 1 deletions
--- 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)