From 7a9f6567b371e217d62dcd0433c54aae4ae4ca0d Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 4 Jul 2002 16:48:43 +0000 Subject: [PATCH] (insert-ideograph-radical-char-data): Specify optional argument `radical' of `ideograph-char<' instead of bind `ideographic-radical'. --- lisp/utf-2000/ideograph-util.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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) -- 1.7.10.4