From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 27 Dec 2014 17:08:52 +0000 (+0900)
Subject: (char-daikanwa-radical): New function.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=193d0aef70c1e9f0e0365fc685f5c4937cb7763a;p=chise%2Fxemacs-chise.git

(char-daikanwa-radical): New function.
(char-daikanwa): Use `char-daikanwa-radical' instead of
`char-ideographic-radical'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 8c59833..f81103d 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -270,6 +270,12 @@
 	      testers (cdr testers)
 	      defaulters (cdr defaulters))))))
 
+(defun char-daikanwa-radical (char &optional radical ignore-sisters)
+  (or (and (encode-char char '=daikanwa@rev2 'defined-only)
+	   (or (get-char-attribute char 'ideographic-radical@daikanwa)
+	       (get-char-attribute char 'ideographic-radical)))
+      (char-ideographic-radical char radical ignore-sisters)))
+
 (defun char-daikanwa-strokes (char &optional radical)
   (unless radical
     (setq radical ideographic-radical))
@@ -287,7 +293,7 @@
     (setq radical ideographic-radical))
   (if (or (null radical)
           (eq (or (get-char-attribute char 'ideographic-radical)
-                  (char-ideographic-radical char radical t))
+                  (char-daikanwa-radical char radical t))
               radical))
       (let ((ret (or (encode-char char '=daikanwa@rev2 'defined-only)
                      ;; (encode-char char '=daikanwa 'defined-only)