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

[Kenichi Handa]

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