From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 28 Sep 2007 16:55:00 +0000 (+0000)
Subject: (server-delete-client): Only delete the terminal if it
X-Git-Tag: emacs-pretest-23.0.90~10586
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=977ede64fee880cc025955e39ed1f055240abe50;p=emacs.git

(server-delete-client): Only delete the terminal if it
is non-nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c40a759d351..0befa154ee1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-28  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* server.el (server-delete-client): Only delete the terminal if it
+	is non-nil.
+
 2007-09-28  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (with-file-property, with-connection-property):
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
 
       ;; Delete the client's tty.
       (let ((terminal (process-get proc 'terminal)))
-	(when (eq (terminal-live-p terminal) t)
+	;; Only delete the terminal if it is non-nil.
+	(when (and terminal (eq (terminal-live-p terminal) t))
 	  (delete-terminal terminal)))
 
       ;; Delete the client's process.