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.
((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
((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)
;; (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)
((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))
\f
(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)))