| blob | b5100c683ed256f13bf5dc2267acaeebe90013a5 |
1 ;;; subst-jis.el --- Unicode/JISX translation -*-coding: euc-jp;-*-
3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
4 ;; Copyright (C) 2004, 2005, 2006, 2007
5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
6 ;; Registration Number H14PRO021
8 ;; Author: Dave Love <fx@gnu.org>
9 ;; Keywords: i18n
11 ;; This file is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
16 ;; This file is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to
23 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24 ;; Boston, MA 02110-1301, USA.
26 ;;; Commentary:
28 ;; Provides translation tables between Unicode and
29 ;; japanese-jisx0208/japanese-jisx0212 charsets for use by the
30 ;; `utf-translate-cjk-mode' option.
32 ;;; Code:
34 ;; Derived in Emacs 22 using
35 ;; (map-charset-chars
36 ;; (lambda (range arg)
37 ;; (let ((i (car range))
38 ;; c)
39 ;; (while (<= i (cdr range))
40 ;; (setq c (encode-char i 'ucs))
41 ;; (if c
42 ;; (if (or (memq (char-syntax c) '(?\( ?\" ?\) ?\;))
43 ;; (insert "(" (format "#x%x ?\\%c" c c) ")\n")
44 ;; (insert "(" (format "#x%x ?%c" c c) ")\n")))
45 ;; (setq i (1+ i))))))
46 ;; 'japanese-jisx0208)
47 ;; and similarly.
54 ;; exclude non-supporting components from decode table
58 '(
59 ;; jisx0208
6940 ;; jisx0212
13010 ;; jisx0201
13074 ))
13076 ;;; arch-tag: 7f320453-b293-4159-af5e-6f0bab03048c
13077 ;;; subst-jis.el ends here