From: tomo Date: Fri, 4 Jun 2010 05:12:58 +0000 (+0000) Subject: (char-ideographic-strokes-from-domains): Moved to ideograph-subr.el. X-Git-Tag: chise-base-0_25^20~10 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=27ad1d57ca807d9fa1737ed4ff01f86d177af45b;p=chise%2Fxemacs-chise.git (char-ideographic-strokes-from-domains): Moved to ideograph-subr.el. --- diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 095a018..80b9411 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -61,13 +61,6 @@ 14 15 16 16 17]) ;;;###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))) - -;;;###autoload (defun char-ideographic-strokes (char &optional radical preferred-domains) (let (ret) (or (catch 'tag