--- server.el 02 Nov 2006 14:00:25 -0500 1.117
+++ server.el 02 Nov 2006 14:03:12 -0500
@@ -112,6 +112,7 @@
:version "22.1")
(put 'server-auth-dir 'risky-local-variable t)
+;; FIXME: This should not be a global var, but stored in the process's plist.
(defvar server-auth-key nil
"The current server authentication key.")
(put 'server-auth-key 'risky-local-variable t)
@@ -311,7 +312,7 @@
(ignore-errors
;; Delete the socket or authentication files made by previous
;; server invocations.
- (if (eq (process-contact server-process :family) 'local)
+ (if (not server-use-tcp)
(delete-file (expand-file-name server-name server-socket-dir))
(setq server-auth-key nil)
(delete-file (expand-file-name server-name server-auth-dir)))))