From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 27 Jan 2004 23:08:29 +0000 (+0000)
Subject: (server-socket-name): Don't use the hostname in the
X-Git-Tag: ttn-vms-21-2-B4~7805
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92c7831bff66ec6f4cc6be6687ab1bf0b00033d2;p=emacs.git

(server-socket-name): Don't use the hostname in the
socket name since /tmp is local to the host anyway.
---

diff --git a/lisp/server.el b/lisp/server.el
index 8e3b7e9a2cd..a6b2742190f 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1,6 +1,6 @@
 ;;; server.el --- Lisp code for GNU Emacs running as server process
 
-;; Copyright (C) 1986,87,92,94,95,96,97,98,99,2000,01,02,2003
+;; Copyright (C) 1986,87,92,94,95,96,97,98,99,2000,01,02,03,2004
 ;;	 Free Software Foundation, Inc.
 
 ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
@@ -160,8 +160,7 @@ are done with it in the server.")
 (make-variable-buffer-local 'server-existing-buffer)
 
 (defvar server-socket-name
-  (format "/tmp/emacs%d-%s/server" (user-uid)
-	  (substring (system-name) 0 (string-match "\\." (system-name)))))
+  (format "/tmp/emacs%d/server" (user-uid)))
 
 (defun server-log (string &optional client)
   "If a *server* buffer exists, write STRING to it for logging purposes."