Rename `ideograph-gt-k' to `=gt-k'.
authortomo <tomo>
Mon, 17 Feb 2003 03:10:07 +0000 (03:10 +0000)
committertomo <tomo>
Mon, 17 Feb 2003 03:10:07 +0000 (03:10 +0000)
lisp/utf-2000/char-db-util.el
lisp/utf-2000/isolated-char.el

index 38b3001..c2ec86c 100644 (file)
            (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"
index d396bfa..d69c53c 100644 (file)
            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)