From 44da92e416f05782eb47c67c355a3e5a8785b52e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 28 Jan 1998 12:38:06 +0000 Subject: (titdic-convert): Set enable-multibyte-characters to t after inserting TIT file by no-conversion. (tit-process-body): Do not bind enable-multibyte-characters to nil. --- lisp/international/titdic-cnv.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 9a4f6ddfbcc..ce5890f34ae 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -270,8 +270,7 @@ ;; function call. (defun tit-process-body () (message "Formatting translation rules...") - (let ((enable-multibyte-characters nil) - (keyseq "\000") + (let ((keyseq "\000") pos) (insert "(quail-define-rules\n") (while (null (eobp)) @@ -355,6 +354,7 @@ the generated Quail package is saved." (insert-file-contents (expand-file-name filename))) (set-visited-file-name (tit-make-quail-package-file-name filename dirname) t) + (setq enable-multibyte-characters t) (set-buffer-file-coding-system 'iso-2022-7bit) ;; Decode the buffer contents from the encoding specified by a -- cgit v1.2.1