# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1033164362 0
# Node ID de014e746a6bc22b3a770f8b85f380c87c96ff6c
# Parent  e8df9e898436f9352a617433b70b6ede800dfb68
(server-socket-name): Always use /tmp and non-qualified hostname.

diff -r e8df9e898436 -r de014e746a6b lisp/server.el
--- a/lisp/server.el	Fri Sep 27 21:12:12 2002 +0000
+++ b/lisp/server.el	Fri Sep 27 22:06:02 2002 +0000
@@ -148,11 +148,8 @@
 (make-variable-buffer-local 'server-existing-buffer)
 
 (defvar server-socket-name
-  (if (or (not (file-writable-p "~/"))
-	  (and (file-writable-p "/tmp/")
-	       (not (zerop (logand (file-modes "/tmp/") 512)))))
-      (format "/tmp/esrv%d-%s" (user-uid) (system-name))
-    (format "~/.emacs-server-%s" (system-name))))
+  (format "/tmp/esrv%d-%s" (user-uid)
+	  (substring (system-name) 0 (string-match "\\." (system-name)))))
 
 ;; If a *server* buffer exists,
 ;; write STRING to it for logging purposes.