mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

server-eval-at: Don't call server--file-name

Browse Source 
* lisp/server.el (server-eval-at): Revert to old code for determining
the server file.  The recent change to call server--file-name meant
that the SERVER argument to server-eval-at was ignored.
This commit is contained in:
Sean Whitton 2022-12-08 16:29:44 -07:00
parent 9089577329
commit 6ccdda3df2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/server.el
View File

@ -1911,10 +1911,11 @@ Returns the result of the evaluation, or signals an error if it
cannot contact the specified server. For example:
(server-eval-at \"server\" \\='(emacs-pid))
returns the process ID of the Emacs instance running \"server\"."
(let ((server-file (server--file-name))
(coding-system-for-read 'binary)
(coding-system-for-write 'binary)
address port secret process)
(let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir))
(server-file (expand-file-name server server-dir))
(coding-system-for-read 'binary)
(coding-system-for-write 'binary)
address port secret process)
(unless (file-exists-p server-file)
(error "No such server: %s" server))
(with-temp-buffer