[Emacs-diffs] Changes to emacs/lisp/server.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/09/28 16:55:01

Index: server.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/server.el,v
retrieving revision 1.140
retrieving revision 1.141
diff -u -b -r1.140 -r1.141
--- server.el   21 Sep 2007 07:10:07 -0000      1.140
+++ server.el   28 Sep 2007 16:54:59 -0000      1.141
@@ -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.