diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-01-28 12:38:06 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-01-28 12:38:06 +0000 |
| commit | 44da92e416f05782eb47c67c355a3e5a8785b52e (patch) | |
| tree | 98bbcaefe09f21d89057d0d7228889212c8b3b23 | |
| parent | d7f9cc37c1028d064281cf2b7338f8c4e9da0e4d (diff) | |
| download | emacs-44da92e416f05782eb47c67c355a3e5a8785b52e.tar.gz | |
(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.
| -rw-r--r-- | lisp/international/titdic-cnv.el | 4 |
1 files 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 |