;;; isolated-char.el --- Set up isolated-characters.
-;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko
+;; Copyright (C) 2001,2002,2003,2005 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: UTF-2000, UCS-4, character, CCS, multiscript, multilingual
-;; This file is part of XEmacs UTF-2000.
+;; This file is part of XEmacs CHISE.
-;; XEmacs UTF-2000 is free software; you can redistribute it and/or
+;; XEmacs CHISE is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.
-;; XEmacs UTF-2000 is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; XEmacs CHISE is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with XEmacs UTF-2000; see the file COPYING. If not, write to
+;; along with XEmacs CHISE; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
(insert-file-contents "../etc/char-data/GT-RS.txt")
(goto-char (point-min))
(let (gt-code radical strokes plane code)
- (while (re-search-forward "\\([0-9]+\\),\\([0-9]+\\),\\([0-9]+\\),GT\\([0-9]+\\),....,\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" nil t)
+ (while (re-search-forward "\\([0-9]+\\),\\([0-9]+\\|---\\)?,\\([0-9]+\\)?,GT\\([0-9]+\\),....,\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" nil t)
(setq gt-code (string-to-int (match-string 1))
plane (string-to-int (match-string 4))
code (string-to-int (match-string 5) 16))
(put-char-attribute (decode-builtin-char '=gt gt-code)
+ '=gt gt-code)
+ (put-char-attribute (decode-builtin-char '=gt gt-code)
(intern (format "=gt-pj-%d" plane))
code)
)))
'japanese-jisx0208))
)))
-(define-char
- '((=gt-pj-4 . #x3844)
- (=gt . 19655)
- ))
-(define-char
- '((=gt-pj-4 . #x3845)
- (=gt . 19656)
- ))
-(define-char
- '((=gt-pj-9 . #x4D7B)
- (=gt . 19861)
- ))
-(define-char
- '((=gt-pj-4 . #x493C)
- (=gt . 21862)
- ))
-(define-char
- '((=gt-pj-4 . #x6D51)
- (=gt . 26606)
- ))
-(define-char
- '((=gt-pj-5 . #x4579)
- (=gt . 30254)
- ))
-(define-char
- '((=gt-pj-11 . #x5277)
- (=gt . 40268)
- ))
-(define-char
- '((=gt-pj-1 . #x3F6B)
- (=gt . 52230)
- ))
-(define-char
- '((=gt-pj-7 . #x5821)
- (=gt . 52349)
- ))
-(define-char
- '((=gt-pj-9 . #x4C4B)
- (=gt . 56364)
- ))
+;; (define-char
+;; '((=gt-pj-4 . #x3844)
+;; (=gt . 19655)
+;; ))
+;; (define-char
+;; '((=gt-pj-4 . #x3845)
+;; (=gt . 19656)
+;; ))
+;; (define-char
+;; '((=gt-pj-9 . #x4D7B)
+;; (=gt . 19861)
+;; ))
+;; (define-char
+;; '((=gt-pj-4 . #x493C)
+;; (=gt . 21862)
+;; ))
+;; (define-char
+;; '((=gt-pj-4 . #x6D51)
+;; (=gt . 26606)
+;; ))
+;; (define-char
+;; '((=gt-pj-5 . #x4579)
+;; (=gt . 30254)
+;; ))
+;; (define-char
+;; '((=gt-pj-11 . #x5277)
+;; (=gt . 40268)
+;; ))
+;; (define-char
+;; '((=gt-pj-1 . #x3F6B)
+;; (=gt . 52230)
+;; ))
+;; (define-char
+;; '((=gt-pj-7 . #x5821)
+;; (=gt . 52349)
+;; ))
+;; (define-char
+;; '((=gt-pj-9 . #x4C4B)
+;; (=gt . 56364)
+;; ))
(define-char
'((=gt-pj-11 . #x5A40)
- (=gt . 60403)
+ (=gt . 67403)
))
;;; isolated-char.el ends here