Skip to content

GitLab

emacs
emacs
Commit 92c7831b authored by Stefan Monnier's avatar Stefan Monnier
Browse files
Options

(server-socket-name): Don't use the hostname in the 

socket name since /tmp is local to the host anyway.
parent 0734b0d0
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 3 deletions
lisp/server.el
View file @ 92c7831b
;;; server.el --- Lisp code for GNU Emacs running as server process ;;; 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. ;; Free Software Foundation, Inc.
;; Author: William Sommerfeld <wesommer@athena.mit.edu> ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
...@@ -160,8 +160,7 @@ are done with it in the server.") ...@@ -160,8 +160,7 @@ are done with it in the server.")
(make-variable-buffer-local 'server-existing-buffer) (make-variable-buffer-local 'server-existing-buffer)
(defvar server-socket-name (defvar server-socket-name
(format "/tmp/emacs%d-%s/server" (user-uid) (format "/tmp/emacs%d/server" (user-uid)))
(substring (system-name) 0 (string-match "\\." (system-name)))))
(defun server-log (string &optional client) (defun server-log (string &optional client)
"If a *server* buffer exists, write STRING to it for logging purposes." "If a *server* buffer exists, write STRING to it for logging purposes."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment