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

[Kenichi Handa]

Index: emacs/lisp/international/utf-8-subst.el
diff -c emacs/lisp/international/utf-8-subst.el:1.5 
emacs/lisp/international/utf-8-subst.el:1.6
*** emacs/lisp/international/utf-8-subst.el:1.5 Wed Jul 17 06:36:16 2002
--- emacs/lisp/international/utf-8-subst.el     Mon Sep 30 02:36:23 2002
***************
*** 1,4 ****
! ;;; utf-8-subst.el --- translation of untranslatable utf-8 to CJK -*-coding: 
iso-2022-7bit;-*-
  
  ;; Copyright (C) 2001, 2002  Free Software Foundation, Inc.
  
--- 1,4 ----
! ;;; utf-8-subst.el --- translation of undecodable UTF-8/16 to CJK -*-coding: 
iso-2022-7bit;-*-
  
  ;; Copyright (C) 2001, 2002  Free Software Foundation, Inc.
  
***************
*** 24,45 ****
  
  ;;; Commentary:
  
! ;; Defines hash table `utf-8-subst-table' which maps UTF-8 otherwise
! ;; `untranslatable' characters to characters in specific Emacs CJK
! ;; charsets.  The CJK charsets used are chinese-gb2312,
! ;; japanese-jisx0208 and korean-ksc5601.  Where their Unicodes
! ;; overlap, the priority used is J C K, guessing the likelihood of
! ;; fonts being available generally.  This can be altered by changing
! ;; the order in which the table is filled.  This should doubtless be
! ;; cusomizable somehow.
  
  ;;; Code:
  
  ;; korean-ksc5601
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) utf-8-subst-table)
!    (puthash (cadr pair) (car pair) utf-8-subst-rev-table))
   '((#x4E00 ?$(Cli(B)
     (#x4E01 ?$(CoK(B)
     (#x4E03 ?$(CvR(B)
--- 24,46 ----
  
  ;;; Commentary:
  
! ;; Defines hash table `ucs-unicode-to-mule-cjk' which maps UTF-8/16
! ;; otherwise `undecodable' characters to characters in specific
! ;; Emacs CJK charsets.  Defines also the hash table
! ;; `ucs-mule-cjk-to-unicode' that does the reverse mapping.  The
! ;; CJK charsets used are chinese-gb2312, japanese-jisx0208 and
! ;; korean-ksc5601.  Where their Unicodes overlap, the priority used is
! ;; J C K, guessing the likelihood of fonts being available generally.
! ;; This can be altered by changing the order in which the table is
! ;; filled.  This should doubtless be cusomizable somehow.
  
  ;;; Code:
  
  ;; korean-ksc5601
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) ucs-unicode-to-mule-cjk)
!    (puthash (cadr pair) (car pair) ucs-mule-cjk-to-unicode))
   '((#x4E00 ?$(Cli(B)
     (#x4E01 ?$(CoK(B)
     (#x4E03 ?$(CvR(B)
***************
*** 7014,7021 ****
  ;; chinese-gb2312
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) utf-8-subst-table)
!    (puthash (cadr pair) (car pair) utf-8-subst-rev-table))
   '((#x4E00 ?$AR;(B)
     (#x4E01 ?$A6!(B)
     (#x4E03 ?$AF_(B)
--- 7015,7022 ----
  ;; chinese-gb2312
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) ucs-unicode-to-mule-cjk)
!    (puthash (cadr pair) (car pair) ucs-mule-cjk-to-unicode))
   '((#x4E00 ?$AR;(B)
     (#x4E01 ?$A6!(B)
     (#x4E03 ?$AF_(B)
***************
*** 13784,13791 ****
  ;; japanese-jisx0208
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) utf-8-subst-table)
!    (puthash (cadr pair) (car pair) utf-8-subst-rev-table))
   '((#x4E00 ?$B0l(B)
     (#x4E01 ?$BCz(B)
     (#x4E03 ?$B<7(B)
--- 13785,13792 ----
  ;; japanese-jisx0208
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) ucs-unicode-to-mule-cjk)
!    (puthash (cadr pair) (car pair) ucs-mule-cjk-to-unicode))
   '((#x4E00 ?$B0l(B)
     (#x4E01 ?$BCz(B)
     (#x4E03 ?$B<7(B)