Mercurial > emacs
changeset 88452:ec21f1e8ca97
(titdic-convert): Read into a unibyte buffer then make the buffer
multibyte.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 07 May 2002 04:49:14 +0000 |
| parents | 33d9bd9d6aa7 |
| children | 4e78ee207f40 |
| files | lisp/international/titdic-cnv.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/titdic-cnv.el Tue May 07 04:48:48 2002 +0000 +++ b/lisp/international/titdic-cnv.el Tue May 07 04:49:14 2002 +0000 @@ -470,11 +470,11 @@ (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 @@ (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))