[Emacs-diffs] Changes to emacs/lisp/international/characters.el

[Kenichi Handa]

Index: emacs/lisp/international/characters.el
diff -c emacs/lisp/international/characters.el:1.48 
emacs/lisp/international/characters.el:1.49
*** emacs/lisp/international/characters.el:1.48 Wed May 19 23:35:22 2004
--- emacs/lisp/international/characters.el      Fri Jun 11 06:03:16 2004
***************
*** 33,38 ****
--- 33,43 ----
  
  ;;; 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,1282 ****
--- 1282,1291 ----
      (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: