projects
/
chise
/
xemacs-chise.git.1
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
57c2de8
)
(char-ideographic-strokes-from-domains): New function [moved from
author
tomo
<tomo>
Fri, 4 Jun 2010 05:12:22 +0000
(
05:12
+0000)
committer
tomo
<tomo>
Fri, 4 Jun 2010 05:12:22 +0000
(
05:12
+0000)
ideograph-util.el].
lisp/utf-2000/ideograph-subr.el
patch
|
blob
|
history
diff --git
a/lisp/utf-2000/ideograph-subr.el
b/lisp/utf-2000/ideograph-subr.el
index
1ef2fcd
..
c8344ac
100644
(file)
--- a/
lisp/utf-2000/ideograph-subr.el
+++ b/
lisp/utf-2000/ideograph-subr.el
@@
-66,6
+66,7
@@
(throw 'tag ret))))))
char ignore-sisters))
(throw 'tag ret))))))
char ignore-sisters))
+
(defun char-ideographic-radical (char &optional radical ignore-sisters)
(let (ret)
(or (if radical
(defun char-ideographic-radical (char &optional radical ignore-sisters)
(let (ret)
(or (if radical
@@
-105,6
+106,15
@@
ret)))))
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
;;;
;;; @ end
;;;