From 8c4f2952d44e050df328eb68833889b3ddb9bbbc Mon Sep 17 00:00:00 2001 From: Jim Diamond Date: Mon, 25 Jun 2012 19:01:42 -0400 Subject: [PATCH] * lisp/server.el (server-process-filter): Remember dir in the process's `server-client-directory' properties. --- lisp/ChangeLog | 5 +++++ lisp/server.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a03ee8228f1..02c81a1018d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-06-25 Jim Diamond (tiny change) + + * server.el (server-process-filter): Remember dir in the + process's `server-client-directory' properties. + 2012-06-24 Chong Yidong * xml.el (xml-parse-tag): Correctly handle comment embedded in diff --git a/lisp/server.el b/lisp/server.el index 1e2f458ac9c..e17e1118847 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1164,7 +1164,8 @@ The following commands are accepted by the client: (setq dir (pop args-left)) (if coding-system (setq dir (decode-coding-string dir coding-system))) - (setq dir (command-line-normalize-file-name dir))) + (setq dir (command-line-normalize-file-name dir)) + (process-put proc 'server-client-directory dir)) ;; Unknown command. (arg (error "Unknown command: %s" arg)))) -- 2.39.2