[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/utf-8-subst.el
From: |
Dave Love |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/utf-8-subst.el |
Date: |
Wed, 17 Jul 2002 06:36:16 -0400 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/utf-8-subst.el,
Dave Love <=