X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fisolated-char.el;h=496b7e8298de9c291bc9c83c983b4f8a9a2671bc;hb=84adca774a7027e8d24376bcd51f0a915f348163;hp=e3b108b7a3ed8f15e50b3bfede208d7528d80804;hpb=aa8879bec08594933daa9a5850594e0866fa2957;p=chise%2Fxemacs-chise.git.1

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