From 193d0aef70c1e9f0e0365fc685f5c4937cb7763a Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 28 Dec 2014 02:08:52 +0900 Subject: [PATCH] (char-daikanwa-radical): New function. (char-daikanwa): Use `char-daikanwa-radical' instead of `char-ideographic-radical'. --- lisp/utf-2000/ideograph-util.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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) -- 1.7.10.4