1 ;;; subst-jis.el --- Unicode/JISX translation -*-coding: euc-jp;-*-
2 ;; Copyright (C) 2002, 2004 Free Software Foundation, Inc.
4 ;; National Institute of Advanced Industrial Science and Technology (AIST)
5 ;; Registration Number H14PRO021
7 ;; Author: Dave Love <fx@gnu.org>
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)
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.
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
22 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02110-1301, USA.
27 ;; Provides translation tables between Unicode and
28 ;; japanese-jisx0208/japanese-jisx0212 charsets for use by the
29 ;; `utf-translate-cjk-mode' option.
33 ;; Derived in Emacs 22 using
35 ;; (lambda (range arg)
36 ;; (let ((i (car range))
38 ;; (while (<= i (cdr range))
39 ;; (setq c (encode-char i 'ucs))
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)
50 (let ((unicode (car 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
))
56 (puthash char unicode ucs-mule-cjk-to-unicode
)))
13075 ;;; arch-tag: 7f320453-b293-4159-af5e-6f0bab03048c
13076 ;;; subst-jis.el ends here