From b662e7840fe069513df8b85a81d9dd39ad09bb91 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 24 Feb 2006 11:02:11 +0000 Subject: [PATCH] (ids-insert-chars-including-components): Must use `copy-tree' for the result of `ideographic-products-find'. --- ids-find.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ids-find.el b/ids-find.el index 0e0e7be..c3c6cbc 100644 --- a/ids-find.el +++ b/ids-find.el @@ -280,7 +280,7 @@ (unless level (setq level 0)) (let (is dis i as bs) - (dolist (c (sort (ideographic-products-find components) + (dolist (c (sort (copy-tree (ideographic-products-find components)) (lambda (a b) (if (setq as (char-total-strokes a)) (if (setq bs (char-total-strokes b)) -- 1.7.10.4