mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(server-socket-name): Always use /tmp and non-qualified hostname.

Browse Source
This commit is contained in:
Stefan Monnier 2002-09-27 22:06:02 +00:00
parent bb76239ba1
commit 15d40fa454
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/server.el
View File

@ -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.