(server-start): Set coding system for the server

process to raw-text.
(server-process-filter): Decode file names if necessary.

diff --git a/lisp/server.el b/lisp/server.el
index 5a8720e377e74c599cab616ea2691774af1c9069..89e3710b329ba26b016f08d09521a53208087de4 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -195,6 +195,10 @@ Prefix arg means just kill any existing server communications subprocess."
       (setq server-process (start-process "server" nil server-program)))
     (set-process-sentinel server-process 'server-sentinel)
     (set-process-filter server-process 'server-process-filter)
+    ;; We must receive file names without being decoded.  Those are
+    ;; decoded by server-process-filter accoding to
+    ;; file-name-coding-system.
+    (set-process-coding-system server-process 'raw-text 'raw-text)
     (process-kill-without-query server-process)))
 \f
 ;Process a request from the server to edit some files.
@@ -206,6 +210,9 @@ Prefix arg means just kill any existing server communications subprocess."
   ;; process each line individually.
   (while (string-match "\n" string)
     (let ((request (substring string 0 (match-beginning 0)))
+         (coding-system (and default-enable-multibyte-characters
+                             (or file-name-coding-system
+                                 default-file-name-coding-system)))
          client nowait
          (files nil)
          (lineno 1))
@@ -242,6 +249,9 @@ Prefix arg means just kill any existing server communications subprocess."
                                 (setq arg (replace-match "-" t t arg)))
                                (t
                                 (setq arg (replace-match " " t t arg))))))
+                     ;; Now decode the file name if necessary.
+                     (if coding-system
+                         (setq arg (decode-coding-string arg coding-system)))
                      (setq files
                            (cons (list arg lineno)
                                  files))