From: tomo <tomo>
Date: Thu, 4 Jul 2002 16:48:43 +0000 (+0000)
Subject: (insert-ideograph-radical-char-data): Specify optional argument
X-Git-Tag: r21-2-44-0_18-m12~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7a9f6567b371e217d62dcd0433c54aae4ae4ca0d;p=chise%2Fxemacs-chise.git

(insert-ideograph-radical-char-data): Specify optional argument
`radical' of `ideograph-char<' instead of bind `ideographic-radical'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 423321e..1bb7c38 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -252,11 +252,11 @@
      '(> > > >))))
 
 (defun insert-ideograph-radical-char-data (radical)
-  (let* ((ideographic-radical radical)
-	 (chars
-	  (sort (copy-list (aref ideograph-radical-chars-vector radical))
-		(function ideograph-char<)))
-	 attributes ccss)
+  (let ((chars
+	 (sort (copy-list (aref ideograph-radical-chars-vector radical))
+	       (lambda (a b)
+		 (ideograph-char< a b radical))))
+	attributes ccss)
     (dolist (name (char-attribute-list))
       (unless (memq name char-db-ignored-attributes)
 	(if (find-charset name)