From: tomo <tomo>
Date: Tue, 21 Jan 2003 07:08:22 +0000 (+0000)
Subject: Read "../etc/char-data/GT-fmap-K4.txt".
X-Git-Tag: r21-4-10-utf-2000-0_20-5~201
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ff70625d9b65976dccfebd8e634cc243b8d3a4b1;p=chise%2Fxemacs-chise.git.1

Read "../etc/char-data/GT-fmap-K4.txt".
---

diff --git a/lisp/utf-2000/isolated-char.el b/lisp/utf-2000/isolated-char.el
index 02159f3..d396bfa 100644
--- a/lisp/utf-2000/isolated-char.el
+++ b/lisp/utf-2000/isolated-char.el
@@ -1,6 +1,6 @@
 ;;; isolated-char.el --- Set up isolated-characters.
 
-;; Copyright (C) 2001,2002 MORIOKA Tomohiko
+;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: UTF-2000, UCS-4, character, CCS, multiscript, multilingual
@@ -190,6 +190,7 @@
   (insert-file-contents "../etc/char-data/GT-fmap-K1.txt")
   (insert-file-contents "../etc/char-data/GT-fmap-K2.txt")
   (insert-file-contents "../etc/char-data/GT-fmap-K3.txt")
+  (insert-file-contents "../etc/char-data/GT-fmap-K4.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)