diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2022-04-08 12:47:53 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2022-04-08 12:47:53 +0200 |
commit | d9851c6df2d5b5e950329968ac268a06ef4adfbf (patch) | |
tree | 769a128f774fb72f1d42957ce6b985bb6f309e30 /lisp/server.el | |
parent | c4921d1157a2e3e15b1d779a6bdf768e307275dd (diff) | |
download | emacs-d9851c6df2d5b5e950329968ac268a06ef4adfbf.tar.gz |
Ensure local `default-directory' when calling `process-attributes'.
* lisp/server.el (server-running-p):
* lisp/subr.el (memory-limit): Ensure local `default-directory'
when calling `process-attributes'.
Diffstat (limited to 'lisp/server.el')
-rw-r--r-- | lisp/server.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el index da60f1cda77..763cf27f7ac 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -779,7 +779,8 @@ by the current Emacs process, use the `server-process' variable." (condition-case nil (if server-use-tcp (with-temp-buffer - (insert-file-contents-literally (expand-file-name name server-auth-dir)) + (setq default-directory server-auth-dir) + (insert-file-contents-literally (expand-file-name name)) (or (and (looking-at "127\\.0\\.0\\.1:[0-9]+ \\([0-9]+\\)") (assq 'comm (process-attributes |