[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/subst-jis.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/subst-jis.el |
Date: |
Wed, 27 Oct 2004 02:16:42 -0400 |
Index: emacs/lisp/international/subst-jis.el
diff -c emacs/lisp/international/subst-jis.el:1.4
emacs/lisp/international/subst-jis.el:1.5
*** emacs/lisp/international/subst-jis.el:1.4 Sat May 8 14:34:49 2004
--- emacs/lisp/international/subst-jis.el Wed Oct 27 06:02:14 2004
***************
*** 45,55 ****
(mapc
(lambda (pair)
(let ((unicode (car pair))
! (char (cadr pair)))
! ;; exclude non-CJK components from decode table
! (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
! (and (>= unicode #xff00) (<= unicode #xffef)))
! (puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'(
;; jisx0208
--- 45,55 ----
(mapc
(lambda (pair)
(let ((unicode (car pair))
! (char (cadr pair))
! (tail utf-translate-cjk-unicode-range))
! ;; exclude non-supporting components from decode table
! (if (utf-translate-cjk-substitutable-p unicode)
! (puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'(
;; jisx0208
- [Emacs-diffs] Changes to emacs/lisp/international/subst-jis.el,
Kenichi Handa <=