From e6743d1a47e4672b7bde1f98710ff893e16d81f6 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 23 Sep 2002 03:43:43 +0000 Subject: [PATCH] (char-ucs): Don't refer `->ucs'. --- lisp/utf-2000/ideograph-util.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 7044aa9..8c236af 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -236,8 +236,7 @@ ;;;###autoload (defun char-ucs (char) (or (get-char-attribute char 'ucs) - (get-char-attribute char '=>ucs) - (get-char-attribute char '->ucs))) + (get-char-attribute char '=>ucs))) (defun char-id (char) (logand (char-int char) #x3FFFFFFF)) -- 1.7.10.4