From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 18 Jan 2016 07:55:27 +0000 (+0900)
Subject: (char-ucs): Modify for `char-feature'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a223bbedfff20af86f1ad6f112c4a552a44a63e4;p=chise%2Fxemacs-chise.git

(char-ucs): Modify for `char-feature'.
---

diff --git a/lisp/utf-2000/chise-subr.el b/lisp/utf-2000/chise-subr.el
index 224fa84..c6e968c 100644
--- a/lisp/utf-2000/chise-subr.el
+++ b/lisp/utf-2000/chise-subr.el
@@ -217,6 +217,7 @@
 (defun char-ucs (char)
   "Return code-point of UCS."
   (or (encode-char char '=ucs 'defined-only)
+      (char-feature char '=ucs)
       (char-feature char '=>ucs)))
 
 ;;;###autoload