Browse Source

Merge pull request #61 from capitaomorte/master

Use UTF-8 coding for process communication
Alex Bennee 13 years ago
parent
commit
7ccdb96f71
1 changed files with 11 additions and 9 deletions
  1. 11 9
      edit-server.el

+ 11 - 9
edit-server.el

@@ -265,15 +265,17 @@ will cause it to be verbose."
   (interactive "P")
   (if (or (process-status "edit-server")
 	  (null (condition-case err
-		    (make-network-process
-		     :name "edit-server"
-		     :buffer edit-server-process-buffer-name
-		     :family 'ipv4
-		     :host (or edit-server-host 'local)
-		     :service edit-server-port
-		     :log 'edit-server-accept
-		     :server t
-		     :noquery t)
+                    (let ((proc (make-network-process
+                                 :name "edit-server"
+                                 :buffer edit-server-process-buffer-name
+                                 :family 'ipv4
+                                 :host (or edit-server-host 'local)
+                                 :service edit-server-port
+                                 :log 'edit-server-accept
+                                 :server t
+                                 :noquery t)))
+                      (set-process-coding-system proc 'utf-8 'utf-8)
+                      proc)
 		  (file-error nil))))
       (message "An edit-server process is already running")
     (setq edit-server-clients '())