From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 11 Mar 2004 18:35:20 +0000 (+0000)
Subject: (server-name): New var.
X-Git-Tag: ttn-vms-21-2-B4~7281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03ae35cfae689723ec828481a1d3e47c45fb53d9;p=emacs.git

(server-name): New var.
(server-socket-dir): New var to replace server-socket-name.
(server-start): Use them.
---

diff --git a/lisp/server.el b/lisp/server.el
index a6b2742190f..3a8bede9f95 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -159,8 +159,10 @@ This means that the server should not kill the buffer when you say you
 are done with it in the server.")
 (make-variable-buffer-local 'server-existing-buffer)
 
-(defvar server-socket-name
-  (format "/tmp/emacs%d/server" (user-uid)))
+(defvar server-name "server")
+
+(defvar server-socket-dir
+  (format "/tmp/emacs%d" (user-uid)))
 
 (defun server-log (string &optional client)
   "If a *server* buffer exists, write STRING to it for logging purposes."
@@ -246,12 +248,14 @@ Emacs distribution as your standard \"editor\".
 Prefix arg means just kill any existing server communications subprocess."
   (interactive "P")
   ;; Make sure there is a safe directory in which to place the socket.
-  (server-ensure-safe-dir (file-name-directory server-socket-name))
+  (server-ensure-safe-dir server-socket-dir)
   ;; kill it dead!
   (if server-process
       (condition-case () (delete-process server-process) (error nil)))
   ;; Delete the socket files made by previous server invocations.
-  (condition-case () (delete-file server-socket-name) (error nil))
+  (condition-case ()
+      (delete-file (expand-file-name server-name server-socket-dir))
+    (error nil))
   ;; If this Emacs already had a server, clear out associated status.
   (while server-clients
     (let ((buffer (nth 1 (car server-clients))))
@@ -263,7 +267,7 @@ Prefix arg means just kill any existing server communications subprocess."
       (setq server-process
 	    (make-network-process
 	     :name "server" :family 'local :server t :noquery t
-	     :service server-socket-name
+	     :service (expand-file-name server-name server-socket-dir)
 	     :sentinel 'server-sentinel :filter 'server-process-filter
 	     ;; We must receive file names without being decoded.
 	     ;; Those are decoded by server-process-filter according