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

[Dave Love]

Index: emacs/lisp/international/utf-8-subst.el
diff -c emacs/lisp/international/utf-8-subst.el:1.4 
emacs/lisp/international/utf-8-subst.el:1.5
*** emacs/lisp/international/utf-8-subst.el:1.4 Sat May 18 21:37:55 2002
--- emacs/lisp/international/utf-8-subst.el     Wed Jul 17 06:36:16 2002
***************
*** 1,6 ****
  ;;; utf-8-subst.el --- translation of untranslatable utf-8 to CJK -*-coding: 
iso-2022-7bit;-*-
  
! ;; Copyright (C) 2001  Free Software Foundation, Inc.
  
  ;; Author: Dave Love <address@hidden>
  ;; Keywords: i18n
--- 1,6 ----
  ;;; utf-8-subst.el --- translation of untranslatable utf-8 to CJK -*-coding: 
iso-2022-7bit;-*-
  
! ;; Copyright (C) 2001, 2002  Free Software Foundation, Inc.
  
  ;; Author: Dave Love <address@hidden>
  ;; Keywords: i18n
***************
*** 24,50 ****
  
  ;;; Commentary:
  
! ;; Defines hash table `utf-8-subst-table' which maps UTF-8
  ;; `untranslatable' characters to characters in specific Emacs CJK
! ;; charsets.  Values in the table can be used as the composition of
! ;; such sequences for a more useful result.  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:
  
- (eval-when-compile (defvar utf-8-subst-table))
- 
- (unless utf-8-subst-table
-   (setq utf-8-subst-table (make-hash-table :test 'eq :size 22000)))
- 
  ;; korean-ksc5601
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) utf-8-subst-table))
   '((#x4E00 ?$(Cli(B)
     (#x4E01 ?$(CoK(B)
     (#x4E03 ?$(CvR(B)
--- 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)
***************
*** 7019,7025 ****
  ;; chinese-gb2312
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) utf-8-subst-table))
   '((#x4E00 ?$AR;(B)
     (#x4E01 ?$A6!(B)
     (#x4E03 ?$AF_(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)
***************
*** 13788,13794 ****
  ;; japanese-jisx0208
  (mapc
   (lambda (pair)
!    (puthash (car pair) (cadr pair) utf-8-subst-table))
   '((#x4E00 ?$B0l(B)
     (#x4E01 ?$BCz(B)
     (#x4E03 ?$B<7(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)