From: tomo <tomo>
Date: Mon, 17 Feb 2003 03:10:07 +0000 (+0000)
Subject: Rename `ideograph-gt-k' to `=gt-k'.
X-Git-Tag: r21-4-10-utf-2000-0_20-=gt-k~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5e7d4b493d27da17a759f5ee57c3dc1a70f9be1d;p=chise%2Fxemacs-chise.git

Rename `ideograph-gt-k' to `=gt-k'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 38b3001..c2ec86c 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -916,7 +916,7 @@
 	    (cond ((memq name '(ideograph-daikanwa-2
 				ideograph-daikanwa
 				ideograph-gt
-				ideograph-gt-k
+				=gt-k
 				ideograph-cbeta))
 		   (if has-long-ccs-name
 		       "(%-26s . %05d)\t; %c%s"
diff --git a/lisp/utf-2000/isolated-char.el b/lisp/utf-2000/isolated-char.el
index d396bfa..d69c53c 100644
--- a/lisp/utf-2000/isolated-char.el
+++ b/lisp/utf-2000/isolated-char.el
@@ -199,7 +199,7 @@
 	    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)
+      (put-char-attribute (decode-builtin-char '=gt-k gt-code)
 			  (intern (format "ideograph-gt-pj-%s" plane))
 			  (encode-char
 			   (decode-shift-jis-char (cons (/ code 256)