;;; isolated-char.el --- Set up isolated-characters.
-;; Copyright (C) 2001 MORIOKA Tomohiko
+;; Copyright (C) 2001,2002 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: UTF-2000, UCS-4, character, CCS, multiscript, multilingual
;; GT 2000
-(let ((buf (find-file-noselect "../etc/GT-RS.txt")))
- (with-current-buffer buf
+(with-temp-buffer
+ (buffer-disable-undo)
+ (insert-file-contents "../etc/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)
(intern (format "ideograph-gt-pj-%d" plane))
code)
)))
- (kill-buffer buf))
+
+(define-char
+ '((ideograph-gt-pj-4 . #x493C)
+ (ideograph-gt . 21862)
+ ))
+(define-char
+ '((ideograph-gt-pj-11 . #x5277)
+ (ideograph-gt . 40268)
+ ))
+(define-char
+ '((ideograph-gt-pj-1 . #x3F6B)
+ (ideograph-gt . 52230)
+ ))
+(define-char
+ '((ideograph-gt-pj-7 . #x5821)
+ (ideograph-gt . 52349)
+ ))
;;; mime-view.el ends here