diff options
| author | Dan Nicolaescu | 2007-09-28 16:55:00 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2007-09-28 16:55:00 +0000 |
| commit | 977ede64fee880cc025955e39ed1f055240abe50 (patch) | |
| tree | 38ef5d6e51be84d561aed3522d220080e31cb059 /lisp/server.el | |
| parent | 9ce8462a492141c2313c5ac9ea89e2820c6a1791 (diff) | |
| download | emacs-977ede64fee880cc025955e39ed1f055240abe50.tar.gz emacs-977ede64fee880cc025955e39ed1f055240abe50.zip | |
(server-delete-client): Only delete the terminal if it
is non-nil.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el index 04da434f737..b6061617f88 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -275,7 +275,8 @@ If NOFRAME is non-nil, let the frames live. (To be used from | |||
| 275 | 275 | ||
| 276 | ;; Delete the client's tty. | 276 | ;; Delete the client's tty. |
| 277 | (let ((terminal (process-get proc 'terminal))) | 277 | (let ((terminal (process-get proc 'terminal))) |
| 278 | (when (eq (terminal-live-p terminal) t) | 278 | ;; Only delete the terminal if it is non-nil. |
| 279 | (when (and terminal (eq (terminal-live-p terminal) t)) | ||
| 279 | (delete-terminal terminal))) | 280 | (delete-terminal terminal))) |
| 280 | 281 | ||
| 281 | ;; Delete the client's process. | 282 | ;; Delete the client's process. |