X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fideograph-util.el;h=8889ac33353a838de308a0ba0001f14f4fd69aa0;hb=0a796abbfe833f95c1196ed42554dde7d30e2f83;hp=4f0021bbcbf15ddbacecd658861a261c46aebc09;hpb=d130d690c36e57cd6bf2fa7ef01bcf0e6262cec6;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 4f0021b..8889ac3 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -265,8 +265,9 @@
     (setq radical ideographic-radical))
   (let ((drc (char-representative-of-daikanwa char radical))
 	(r (char-ideographic-radical char radical)))
-    (if (or (null r)
-	    (= (char-ideographic-radical drc radical) r))
+    (if (and drc
+	     (or (null r)
+		 (= (char-ideographic-radical drc radical) r)))
 	(setq char drc)))
   (char-ideographic-strokes char radical '(daikanwa)))
 
@@ -289,8 +290,8 @@
 		  ret))
 	    (and (setq ret (get-char-attribute char '=>daikanwa))
 		 (if (numberp ret)
-		     (list ret 0 8)
-		   (append ret '(8))))
+		     (list ret -10)
+		   (append ret '(-10))))
 	    (unless (memq char checked)
 	      (unless depth
 		(setq depth 0))