From: hayashi <hayashi>
Date: Mon, 9 Jul 2001 07:05:30 +0000 (+0000)
Subject: Use binary instead of no-conversion.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6d0ab031935cd9142cbd95dc6cea7519817b5aad;p=elisp%2Ftamago.git

Use binary instead of no-conversion.
---

diff --git a/ChangeLog b/ChangeLog
index 72b27c3..b2b8aa9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2001-07-09  Yoshiki Hayashi <yoshiki@xemacs.org>
 
+	* canna.el (canna-open): Use binary instead of no-conversion.
+	* sj3.el (sj3-open): Ditto.
+	* wnn.el (wnn-open): Ditto.
+	* wnnrpc.el (wnnrpc-with-temp-buffer): Ditto.
+	(wnnrpc-with-write-file): Ditto.
+
+2001-07-09  Yoshiki Hayashi <yoshiki@xemacs.org>
+
 	* egg-cnv.el (egg-make-bunsetsu): Add start-open property.
 	* its.el (its-put-cursor): Ditto.
 
diff --git a/egg/canna.el b/egg/canna.el
index d6ab041..13655a2 100644
--- a/egg/canna.el
+++ b/egg/canna.el
@@ -345,7 +345,7 @@ katakana to candidates list. NOSTUDY specifies not study."
 		((error quit))))
 	    (when proc
 	      (process-kill-without-query proc)
-	      (set-process-coding-system proc 'no-conversion 'no-conversion)
+	      (set-process-coding-system proc 'binary 'binary)
 	      (set-process-sentinel proc 'canna-comm-sentinel)
 	      (set-marker-insertion-type (process-mark proc) t)
 	      (setq result (cannarpc-open proc user-name)) ;; result is context
diff --git a/egg/sj3.el b/egg/sj3.el
index 61d7249..e5e5264 100644
--- a/egg/sj3.el
+++ b/egg/sj3.el
@@ -147,7 +147,7 @@ Don't specify the optional arguments in normal use."
       ((error quit)
        (egg-error "failed to connect sj3 server")))
     (process-kill-without-query proc)
-    (set-process-coding-system proc 'no-conversion 'no-conversion)
+    (set-process-coding-system proc 'binary 'binary)
     (set-marker-insertion-type (process-mark proc) t)
     (save-excursion
       (set-buffer buf)
@@ -198,7 +198,7 @@ Don't specify the optional arguments in normal use."
 ;;       (if proc
 ;; 	  (progn
 ;; 	    (process-kill-without-query proc)
-;; 	    (set-process-coding-system proc 'no-conversion 'no-conversion)
+;; 	    (set-process-coding-system proc 'binary 'binary)
 ;; 	    (set-marker-insertion-type (process-mark proc) t)
 ;; 	    ;; Initialize dictionaries
 ;; 	    (setq sj3-sys-dict-list nil)
diff --git a/egg/wnn.el b/egg/wnn.el
index 18b392c..3bebcf9 100644
--- a/egg/wnn.el
+++ b/egg/wnn.el
@@ -1246,7 +1246,7 @@ Return the list of bunsetsu."
 		((error quit))))
 	    (when proc
 	      (process-kill-without-query proc)
-	      (set-process-coding-system proc 'no-conversion 'no-conversion)
+	      (set-process-coding-system proc 'binary 'binary)
 	      (set-process-sentinel proc 'wnn-comm-sentinel)
 	      (set-marker-insertion-type (process-mark proc) t)
 	      (setq result (wnnrpc-open proc myname user-name))
diff --git a/egg/wnnrpc.el b/egg/wnnrpc.el
index 8fcc98d..1d651c5 100644
--- a/egg/wnnrpc.el
+++ b/egg/wnnrpc.el
@@ -1454,16 +1454,16 @@ HINSHI and FUZOKUGO are information of preceding bunsetsu."
 
 (defmacro wnnrpc-with-temp-buffer (&rest body)
   `(with-temp-buffer
-     (let ((coding-system-for-read 'no-conversion)
-	   (coding-system-for-write 'no-conversion))
+     (let ((coding-system-for-read 'binary)
+	   (coding-system-for-write 'binary))
        (set-buffer-multibyte nil)
        ,@body)))
 
 (defmacro wnnrpc-with-write-file (filename error-handler &rest body)
   `(condition-case error
        (with-temp-file ,filename
-	 (let ((coding-system-for-read 'no-conversion)
-	       (coding-system-for-write 'no-conversion))
+	 (let ((coding-system-for-read 'binary)
+	       (coding-system-for-write 'binary))
 	   (set-buffer-multibyte nil)
 	   ,@body))
      (file-error ,error-handler)))