From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 5 Apr 2008 17:55:00 +0000 (+0000)
Subject: Undo part of the multi-tty change, which is only needed if server.el is
X-Git-Tag: emacs-pretest-23.0.90~6547
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6afdf6e69a6ffae71c5de887727c1190302f8c72;p=emacs.git

Undo part of the multi-tty change, which is only needed if server.el is
preloaded, and broke server-running-p.
(server-socket-dir): Initialize in the defvar, as before.
(server-start): Remove initialization of server-socket-dir.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1083f35323..20816c12e72 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-04-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* server.el: Undo part of the multi-tty change, which is only
+	needed if server.el is preloaded, and broke server-running-p.
+	(server-socket-dir): Initialize in the defvar, as before.
+	(server-start): Remove initialization of server-socket-dir.
+
 2008-04-05  Eli Zaretskii  <eliz@gnu.org>
 
 	* ls-lisp.el (ls-lisp-format): Support inodes that are 2- or
@@ -7,8 +14,7 @@
 
 	* cus-face.el (custom-face-attributes): Handle roman slant.
 
-	* faces.el (default): Ensure the face-defface-spec property is
-	set.
+	* faces.el (default): Ensure the face-defface-spec property is set.
 
 2008-04-05  Adrian Robert  <Adrian.B.Robert@gmail.com>
 
diff --git a/lisp/server.el b/lisp/server.el
index 024df504779..c88143f7ca1 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -204,9 +204,8 @@ are done with it in the server.")
 
 (defvar server-name "server")
 
-(defvar server-socket-dir nil
-  "The directory in which to place the server socket.
-Initialized by `server-start'.")
+(defvar server-socket-dir (format "/tmp/emacs%d" (user-uid))
+  "The directory in which to place the server socket.")
 
 (defun server-clients-with (property value)
   "Return a list of clients with PROPERTY set to VALUE."
@@ -463,9 +462,6 @@ kill any existing server communications subprocess."
 	 (not server-clients)
 	 (yes-or-no-p
 	  "The current server still has clients; delete them? "))
-    ;; It is safe to get the user id now.
-    (setq server-socket-dir (or server-socket-dir
-				(format "/tmp/emacs%d" (user-uid))))
     (when server-process
       ;; kill it dead!
       (ignore-errors (delete-process server-process)))