diff options
| author | Jim Diamond <Jim.Diamond@AcadiaU.ca> | 2012-06-25 19:01:42 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-25 19:01:42 -0400 |
| commit | 8c4f2952d44e050df328eb68833889b3ddb9bbbc (patch) | |
| tree | e2f399c40b98442b76bc7b4f470db386f515c924 /lisp/server.el | |
| parent | a35e580cbc2ab998f114881e9f48650a83e5ad8c (diff) | |
| download | emacs-8c4f2952d44e050df328eb68833889b3ddb9bbbc.tar.gz | |
* lisp/server.el (server-process-filter): Remember dir in the
process's `server-client-directory' properties.
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 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)))) |