Mercurial > emacs

diff lisp/server.el @ 84967:90cae4d53a9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-delete-client): Only delete the terminal if it is non-nil.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 28 Sep 2007 16:55:00 +0000
parents 4f2e2dad61b9
children 441ea5bdff8f
line wrap: on
line diff
--- a/lisp/server.el	Fri Sep 28 16:05:49 2007 +0000
+++ b/lisp/server.el	Fri Sep 28 16:55:00 2007 +0000
@@ -275,7 +275,8 @@
 
       ;; 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.