emacs-29 6ccdda3df2e: server-eval-at: Don't call server--file-name

[Sean Whitton]

branch: emacs-29
commit 6ccdda3df2e8cd4a0f408d2d84c64b69d29f40a5
Author: Sean Whitton <spwhitton@spwhitton.name>
Commit: Sean Whitton <spwhitton@spwhitton.name>

    server-eval-at: Don't call server--file-name
    
    * 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.
---
 lisp/server.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/server.el b/lisp/server.el
index 7e713eaecde..fd740d126df 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -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