From 15d40fa45425863d9fb47a73d32e6ecf0b8b6263 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 27 Sep 2002 22:06:02 +0000 Subject: [PATCH] (server-socket-name): Always use /tmp and non-qualified hostname. --- lisp/server.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lisp/server.el b/lisp/server.el index 12d7c1290c2..857ffa6b9f0 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -148,11 +148,8 @@ are done with it in the server.") (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. -- 2.39.2