diff options
| -rw-r--r-- | lisp/net/eudcb-ph.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)." | |||
| 184 | (setq process (open-network-stream "ph" eudc-ph-process-buffer host port)) | 184 | (setq process (open-network-stream "ph" eudc-ph-process-buffer host port)) |
| 185 | (if (null process) | 185 | (if (null process) |
| 186 | (throw 'done nil)) | 186 | (throw 'done nil)) |
| 187 | (process-kill-without-query process) | 187 | (set-process-query-on-exit-flag process t) |
| 188 | process))) | 188 | process))) |
| 189 | 189 | ||
| 190 | (defun eudc-ph-close-session (process) | 190 | (defun eudc-ph-close-session (process) |