diff options
author | Kenichi Handa <handa@m17n.org> | 2004-06-11 06:03:16 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2004-06-11 06:03:16 +0000 |
commit | ae0916f8e03c83b4138256b5c66f2abe8eccd75f (patch) | |
tree | e78f087b5fa08032fdb50257953eeb07e851d8c8 /lisp/international | |
parent | 00d3976d873a3df9862b02b0fcccffe446be0306 (diff) | |
download | emacs-ae0916f8e03c83b4138256b5c66f2abe8eccd75f.tar.gz |
Temporarily set utf-translate-cjk-mode to nil.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/characters.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 809c457c6e1..c33bd2eb43f 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -33,6 +33,11 @@ ;;; Code: +;; We must set utf-translate-cjk-mode to nil while loading this file +;; to avoid translating CJK characters in decode-char. +(defvar saved-utf-translate-cjk-mode utf-translate-cjk-mode) +(setq utf-translate-cjk-mode nil) + ;;; Predefined categories. ;; For each character set. @@ -1277,6 +1282,10 @@ (put-charset-property (car l) 'nospace-between-words t) (setq l (cdr l)))) + +(setq utf-translate-cjk-mode saved-utf-translate-cjk-mode) +(makunbound 'saved-utf-translate-cjk-mode) + ;;; Local Variables: ;;; coding: iso-2022-7bit ;;; End: |