Commit 66b820ba authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(titdic-convert): Read into a unibyte buffer then make the buffer

multibyte.
parent 7c9e1024
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment