From 5e7d4b493d27da17a759f5ee57c3dc1a70f9be1d Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 17 Feb 2003 03:10:07 +0000 Subject: [PATCH] Rename `ideograph-gt-k' to `=gt-k'. --- lisp/utf-2000/char-db-util.el | 2 +- lisp/utf-2000/isolated-char.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4