X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fideograph-subr.el;fp=lisp%2Futf-2000%2Fideograph-subr.el;h=c8344ace419ca12e5bd0c9a4d3000b51babeb733;hb=7393ec3673a69413208c39bad66b4ac2d1d4f8da;hp=1ef2fcdf6857f9f9305ac1fb5ab7a657c79381a9;hpb=57c2de888283e2e4350edb6435e7987295ebc8ea;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/ideograph-subr.el b/lisp/utf-2000/ideograph-subr.el
index 1ef2fcd..c8344ac 100644
--- a/lisp/utf-2000/ideograph-subr.el
+++ b/lisp/utf-2000/ideograph-subr.el
@@ -66,6 +66,7 @@
 	       (throw 'tag ret))))))
    char ignore-sisters))
 
+
 (defun char-ideographic-radical (char &optional radical ignore-sisters)
   (let (ret)
     (or (if radical
@@ -105,6 +106,15 @@
 	    ret)))))
 
 
+;;;###autoload
+(defun char-ideographic-strokes-from-domains (char domains &optional radical)
+  (if radical
+      (get-char-feature-from-domains char 'ideographic-strokes domains
+				     'ideographic-radical radical)
+    (get-char-feature-from-domains char 'ideographic-strokes domains)))
+
+
+
 ;;; @ end
 ;;;