comparison lisp/international/utf-8-subst.el @ 47704:8a5233d2f072

Setup ucs-unicode-to-mule-cjk and ucs-mule-cjk-to-unicode, not utf-8-subst-table and utf-8-subst-rev-table.

47703:6d4430dfeafc

;;; 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 <[e-mail]>
;; Keywords: i18n

;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; 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)
   (#x4E07 ?$(CX2(B)
   (#x4E08 ?$(Cm[(B)

   (#xD79D ?$(CH~(B)))

;; 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)
   (#x4E07 ?$AMr(B)
   (#x4E08 ?$AUI(B)

   ))

;; 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)
   (#x4E07 ?$BK|(B)
   (#x4E08 ?$B>f(B)

47704:8a5233d2f072

;;; utf-8-subst.el --- translation of undecodable UTF-8/16 to CJK -*-coding: iso-2022-7bit;-*-

;; Copyright (C) 2001, 2002  Free Software Foundation, Inc.

;; Author: Dave Love <[e-mail]>
;; Keywords: i18n

;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; 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)
   (#x4E07 ?$(CX2(B)
   (#x4E08 ?$(Cm[(B)

   (#xD79D ?$(CH~(B)))

;; 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)
   (#x4E07 ?$AMr(B)
   (#x4E08 ?$AUI(B)

   ))

;; 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)
   (#x4E07 ?$BK|(B)
   (#x4E08 ?$B>f(B)