diff options
| author | Richard M. Stallman | 2005-11-16 22:23:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-11-16 22:23:28 +0000 |
| commit | 4e46799eac78d61dadb34142fe51d5f8cc65bc1b (patch) | |
| tree | 28b85e2db1cf5d4e0fb6537b7b3bdac4eaad171e | |
| parent | 63fcfa450f224300fc829c8acef36932c3d1b1e1 (diff) | |
| download | emacs-4e46799eac78d61dadb34142fe51d5f8cc65bc1b.tar.gz emacs-4e46799eac78d61dadb34142fe51d5f8cc65bc1b.zip | |
(eudc-ph-open-session): Use set-process-query-on-exit-flag.
| -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) |