From: tomo <tomo>
Date: Fri, 24 Feb 2006 11:02:11 +0000 (+0000)
Subject: (ids-insert-chars-including-components): Must use `copy-tree' for the
X-Git-Tag: chise-base-0_23~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b662e7840fe069513df8b85a81d9dd39ad09bb91;p=chise%2Fids.git

(ids-insert-chars-including-components): Must use `copy-tree' for the
result of `ideographic-products-find'.
---

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))