HCoop / bpt / emacs.git / blame
| Commit | Line | Data |
|---|---|---|
| d7136fd3 | 1 | ;;; subst-jis.el --- Unicode/JISX translation -*-coding: euc-jp;-*- |
| 9e24a165 | 2 | ;; Copyright (C) 2002, 2004 Free Software Foundation, Inc. |
| 2fd125a3 KH |
3 | ;; Copyright (C) 2004 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
| 5 | ;; Registration Number H14PRO021 | |
| d7136fd3 DL |
6 | |
| 7 | ;; Author: Dave Love <fx@gnu.org> | |
| 8 | ;; Keywords: i18n | |
| 9 | ||
| 10 | ;; This file is free software; you can redistribute it and/or modify | |
| 11 | ;; it under the terms of the GNU General Public License as published by | |
| 12 | ;; the Free Software Foundation; either version 2, or (at your option) | |
| 13 | ;; any later version. | |
| 14 | ||
| 15 | ;; This file is distributed in the hope that it will be useful, | |
| 16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 18 | ;; GNU General Public License for more details. | |
| 19 | ||
| 20 | ;; You should have received a copy of the GNU General Public License | |
| 21 | ;; along with GNU Emacs; see the file COPYING. If not, write to | |
| 3a35cf56 LK |
22 | ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 23 | ;; Boston, MA 02110-1301, USA. | |
| d7136fd3 DL |
24 | |
| 25 | ;;; Commentary: | |
| 26 | ||
| 27 | ;; Provides translation tables between Unicode and | |
| 28 | ;; japanese-jisx0208/japanese-jisx0212 charsets for use by the | |
| 9e24a165 | 29 | ;; `utf-translate-cjk-mode' option. |
| d7136fd3 DL |
30 | |
| 31 | ;;; Code: | |
| 32 | ||
| 33 | ;; Derived in Emacs 22 using | |
| 34 | ;; (map-charset-chars | |
| 35 | ;; (lambda (range arg) | |
| 36 | ;; (let ((i (car range)) | |
| 37 | ;; c) | |
| 38 | ;; (while (<= i (cdr range)) | |
| 39 | ;; (setq c (encode-char i 'ucs)) | |
| 40 | ;; (if c | |
| 41 | ;; (if (or (memq (char-syntax c) '(?\( ?\" ?\) ?\;)) | |
| 42 | ;; (insert "(" (format "#x%x ?\\%c" c c) ")\n") | |
| 43 | ;; (insert "(" (format "#x%x ?%c" c c) ")\n"))) | |
| 44 | ;; (setq i (1+ i)))))) | |
| 45 | ;; 'japanese-jisx0208) | |
| 46 | ;; and similarly. | |
| 47 | ||
| 48 | (mapc | |
| 49 | (lambda (pair) | |
| 50 | (let ((unicode (car pair)) | |
| e41ef4d4 KH |
51 | (char (cadr pair)) |
| 52 | (tail utf-translate-cjk-unicode-range)) | |
| 53 | ;; exclude non-supporting components from decode table | |
| 54 | (if (utf-translate-cjk-substitutable-p unicode) | |
| 55 | (puthash unicode char ucs-unicode-to-mule-cjk)) | |
| d7136fd3 DL |
56 | (puthash char unicode ucs-mule-cjk-to-unicode))) |
| 57 | '( | |
| 58 | ;; jisx0208 | |
| 59 |