Mercurial > emacs

comparison lisp/international/subst-big5.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents bcda3ce1cc5c
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; subst-big5.el --- Unicode/GB2312 translation -*-coding: big5;-*- 1 ;;; subst-big5.el --- Unicode/GB2312 translation -*-coding: big5;-*-
2 2
3 ;; Copyright (C) 2002 Free Software Foundation, Inc. 3 ;; Copyright (C) 2002, 2004 Free Software Foundation, Inc.
4 4
5 ;; Author: Dave Love <fx@gnu.org> 5 ;; Author: Dave Love <fx@gnu.org>
6 ;; Keywords: i18n 6 ;; Keywords: i18n
7 7
8 ;; This file is free software; you can redistribute it and/or modify 8 ;; This file is free software; you can redistribute it and/or modify
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details. 16 ;; GNU General Public License for more details.
17 17
18 ;; You should have received a copy of the GNU General Public License 18 ;; You should have received a copy of the GNU General Public License
19 ;; along with GNU Emacs; see the file COPYING. If not, write to 19 ;; along with GNU Emacs; see the file COPYING. If not, write to
20 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 20 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
21 ;; Boston, MA 02111-1307, USA. 21 ;; Boston, MA 02110-1301, USA.
22 22
23 ;;; Commentary: 23 ;;; Commentary:
24 24
25 ;; Provides translation tables between Unicode and chinese-big5 for 25 ;; Provides translation tables between Unicode and chinese-big5 for
26 ;; use by the `utf-translate-cjk' option. See subst-jis.el for the 26 ;; use by the `utf-translate-cjk-mode' option. See subst-jis.el for the
27 ;; method used. 27 ;; method used.
28 28
29 ;;; Code: 29 ;;; Code:
30 30
31 (mapc 31 (mapc
32 (lambda (pair) 32 (lambda (pair)
33 (let ((unicode (car pair)) 33 (let ((unicode (car pair))
34 (char (cadr pair))) 34 (char (cadr pair)))
35 (if (and (>= unicode #x2e80) (<= unicode #xd7a3)) 35 ;; exclude non-supporting components from decode table
36 (puthash unicode char ucs-unicode-to-mule-cjk)) 36 (if (utf-translate-cjk-substitutable-p unicode)
37 (puthash unicode char ucs-unicode-to-mule-cjk))
37 (puthash char unicode ucs-mule-cjk-to-unicode))) 38 (puthash char unicode ucs-mule-cjk-to-unicode)))
38 '((#xa7 ?¡±) 39 '((#xa7 ?¡±)
39 (#xaf ?¡Â) 40 (#xaf ?¡Â)
40 (#xb0 ?¢X) 41 (#xb0 ?¢X)
41 (#xb1 ?¡Ó) 42 (#xb1 ?¡Ó)
13935 (#xffe0 ?¢F) 13936 (#xffe0 ?¢F)
13936 (#xffe1 ?¢G) 13937 (#xffe1 ?¢G)
13937 (#xffe3 ?¡Ã) 13938 (#xffe3 ?¡Ã)
13938 (#xffe5 ?¢D))) 13939 (#xffe5 ?¢D)))
13939 13940
13941 ;;; arch-tag: 4fbf5312-bb44-4f23-8ae2-7ab2ee1c540f
13940 ;;; subst-big5.el ends here 13942 ;;; subst-big5.el ends here