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

[Miles Bader]

Index: emacs/lisp/international/subst-jis.el
diff -c emacs/lisp/international/subst-jis.el:1.1.4.3 
emacs/lisp/international/subst-jis.el:1.1.4.4
*** emacs/lisp/international/subst-jis.el:1.1.4.3       Tue May 11 02:35:11 2004
--- emacs/lisp/international/subst-jis.el       Fri Oct 29 02:05:07 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
***************
*** 13001,13007 ****
     (#x9fa2 ?íá)
     (#x9fa3 ?íâ)
     (#x9fa5 ?íã)
!    (#xff5e ?¢·)))
  
  ;;; arch-tag: 7f320453-b293-4159-af5e-6f0bab03048c
  ;;; subst-jis.el ends here
--- 13001,13073 ----
     (#x9fa2 ?íá)
     (#x9fa3 ?íâ)
     (#x9fa5 ?íã)
!    (#xff5e ?¢·)
! 
!    ;; jisx0201
!    (#xFF61 ?Ž¡)
!    (#xFF62 ?\Ž¢)
!    (#xFF63 ?\Ž£)
!    (#xFF64 ?Ž¤)
!    (#xFF65 ?Ž¥)
!    (#xFF66 ?Ž¦)
!    (#xFF67 ?Ž§)
!    (#xFF68 ?Ž¨)
!    (#xFF69 ?Ž©)
!    (#xFF6A ?Žª)
!    (#xFF6B ?Ž«)
!    (#xFF6C ?Ž¬)
!    (#xFF6D ?Ž­)
!    (#xFF6E ?Ž®)
!    (#xFF6F ?Ž¯)
!    (#xFF70 ?Ž°)
!    (#xFF71 ?Ž±)
!    (#xFF72 ?Ž²)
!    (#xFF73 ?Ž³)
!    (#xFF74 ?Ž´)
!    (#xFF75 ?Žµ)
!    (#xFF76 ?Ž¶)
!    (#xFF77 ?Ž·)
!    (#xFF78 ?Ž¸)
!    (#xFF79 ?Ž¹)
!    (#xFF7A ?Žº)
!    (#xFF7B ?Ž»)
!    (#xFF7C ?Ž¼)
!    (#xFF7D ?Ž½)
!    (#xFF7E ?Ž¾)
!    (#xFF7F ?Ž¿)
!    (#xFF80 ?ŽÀ)
!    (#xFF81 ?ŽÁ)
!    (#xFF82 ?ŽÂ)
!    (#xFF83 ?ŽÃ)
!    (#xFF84 ?ŽÄ)
!    (#xFF85 ?ŽÅ)
!    (#xFF86 ?ŽÆ)
!    (#xFF87 ?ŽÇ)
!    (#xFF88 ?ŽÈ)
!    (#xFF89 ?ŽÉ)
!    (#xFF8A ?ŽÊ)
!    (#xFF8B ?ŽË)
!    (#xFF8C ?ŽÌ)
!    (#xFF8D ?ŽÍ)
!    (#xFF8E ?ŽÎ)
!    (#xFF8F ?ŽÏ)
!    (#xFF90 ?ŽÐ)
!    (#xFF91 ?ŽÑ)
!    (#xFF92 ?ŽÒ)
!    (#xFF93 ?ŽÓ)
!    (#xFF94 ?ŽÔ)
!    (#xFF95 ?ŽÕ)
!    (#xFF96 ?ŽÖ)
!    (#xFF97 ?Ž×)
!    (#xFF98 ?ŽØ)
!    (#xFF99 ?ŽÙ)
!    (#xFF9A ?ŽÚ)
!    (#xFF9B ?ŽÛ)
!    (#xFF9C ?ŽÜ)
!    (#xFF9D ?ŽÝ)
!    (#xFF9E ?ŽÞ)
!    (#xFF9F ?Žß)
!    ))
  
  ;;; arch-tag: 7f320453-b293-4159-af5e-6f0bab03048c
  ;;; subst-jis.el ends here