[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108738: * lisp/server.el (server-process-filter): Remember dir in the

[Stefan Monnier]

------------------------------------------------------------
revno: 108738
author: Jim Diamond <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2012-06-25 19:01:42 -0400
message:
  * lisp/server.el (server-process-filter): Remember dir in the
  process's `server-client-directory' properties.
modified:
  lisp/ChangeLog
  lisp/server.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-24 15:06:24 +0000
+++ b/lisp/ChangeLog    2012-06-25 23:01:42 +0000
@@ -1,3 +1,8 @@
+2012-06-25  Jim Diamond  <address@hidden>  (tiny change)
+
+       * server.el (server-process-filter): Remember dir in the
+       process's `server-client-directory' properties.
+
 2012-06-24  Chong Yidong  <address@hidden>
 
        * xml.el (xml-parse-tag): Correctly handle comment embedded in

=== modified file 'lisp/server.el'
--- a/lisp/server.el    2012-04-20 10:37:57 +0000
+++ b/lisp/server.el    2012-06-25 23:01:42 +0000
@@ -1164,7 +1164,8 @@
                  (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))))