From 5332534d03777237dbcecdfef23e776756f0f5ce Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 19 Dec 2002 11:55:09 +0000 Subject: [PATCH] Add code to read ../etc/char-data/GT-fmap-K[12].txt. --- lisp/utf-2000/isolated-char.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/lisp/utf-2000/isolated-char.el b/lisp/utf-2000/isolated-char.el index 286ca9e..59a6ea3 100644 --- a/lisp/utf-2000/isolated-char.el +++ b/lisp/utf-2000/isolated-char.el @@ -185,6 +185,26 @@ code) ))) +(with-temp-buffer + (buffer-disable-undo) + (insert-file-contents "../etc/char-data/GT-fmap-K1.txt") + (insert-file-contents "../etc/char-data/GT-fmap-K2.txt") + (goto-char (point-min)) + (let (plane code gt-code) + (while (re-search-forward "^GTps-\\([0-9k][0-9]\\)-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)\tGT-K\\([0-9]+\\)" nil t) + (setq plane (match-string 1) + code (string-to-int (match-string 2) 16) + gt-code (string-to-int (match-string 3))) + (if (eq (aref plane 0) ?0) + (setq plane (substring plane 1))) + (put-char-attribute (decode-builtin-char 'ideograph-gt-k gt-code) + (intern (format "ideograph-gt-pj-%s" plane)) + (encode-char + (decode-shift-jis-char (cons (/ code 256) + (% code 256))) + 'japanese-jisx0208)) + ))) + (define-char '((ideograph-gt-pj-4 . #x3844) (ideograph-gt . 19655) -- 1.7.10.4