From 66b820bac0c14afc75f8ff5d6b1d0fbda88d5078 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 7 May 2002 04:49:14 +0000 Subject: [PATCH] (titdic-convert): Read into a unibyte buffer then make the buffer multibyte. --- lisp/international/titdic-cnv.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 93313428099..1950a8febf8 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -470,11 +470,11 @@ the generated Quail package is saved." (set-buffer-file-coding-system 'iso-2022-7bit) (let ((standard-output (current-buffer))) (with-temp-buffer + (set-buffer-multibyte nil) (let ((coding-system-for-read 'no-conversion)) (insert-file-contents (expand-file-name filename))) - (set-buffer-multibyte t) - ;; Decode the buffer contents from the encoding specified by a + ;; Decode the buffer contents from the encoding specified by a ;; value of the key "ENCODE:". (if (not (search-forward "\nBEGIN" nil t)) (error "TIT dictionary doesn't have body part")) @@ -494,6 +494,7 @@ the generated Quail package is saved." (goto-char (point-min)) (decode-coding-region (point-min) (point-max) coding-system)) + (set-buffer-multibyte t) ;; Set point the starting position of the body part. (goto-char (point-min)) (if (not (search-forward "\nBEGIN" nil t)) -- 2.39.5