(char-ucs): Don't refer `->ucs'.
authortomo <tomo>
Mon, 23 Sep 2002 03:43:43 +0000 (03:43 +0000)
committertomo <tomo>
Mon, 23 Sep 2002 03:43:43 +0000 (03:43 +0000)
lisp/utf-2000/ideograph-util.el

index 7044aa9..8c236af 100644 (file)
 ;;;###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))