From: tomo <tomo>
Date: Tue, 31 May 2011 08:42:25 +0000 (+0000)
Subject: Don't add `=gt' for isolated GT characters.
X-Git-Tag: r21-4-22-chise-0_25-10^20~426
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a51b7d02c320771f4c6159217097d5fb6a802d9f;p=chise%2Fxemacs-chise.git

Don't add `=gt' for isolated GT characters.
---

diff --git a/lisp/utf-2000/isolated-char.el b/lisp/utf-2000/isolated-char.el
index e3b108b..496b7e8 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,2003,2005 MORIOKA Tomohiko
+;; Copyright (C) 2001,2002,2003,2005,2011 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: UTF-2000, UCS-4, character, CCS, multiscript, multilingual
@@ -180,8 +180,8 @@
 	(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)
+        ;;                     '=gt gt-code)
 	(put-char-attribute (decode-builtin-char '=gt gt-code)
 			    (intern (format "=gt-pj-%d" plane))
 			    code)
@@ -249,9 +249,9 @@
 ;;   '((=gt-pj-9   . #x4C4B)
 ;;     (=gt        . 56364)
 ;;     ))
-(define-char
-  '((=gt-pj-11	. #x5A40)
-    (=gt	. 67403)
-    ))
+;; (define-char
+;;   '((=gt-pj-11  . #x5A40)
+;;     (=gt        . 67403)
+;;     ))
 
 ;;; isolated-char.el ends here