Mercurial > emacs
comparison lisp/international/subst-big5.el @ 88155:d7ddb3e565de
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 |