mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

(titdic-convert): Set

Browse source 
enable-multibyte-characters to t after inserting TIT file by
no-conversion.
(tit-process-body): Do not bind enable-multibyte-characters to
nil.
This commit is contained in:
Kenichi Handa 1998-01-28 12:38:06 +00:00
parent 8cbbac75ae
commit d9fd228d4d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/international/titdic-cnv.el
View file

@ -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