From: morioka <morioka>
Date: Sun, 3 May 1998 18:24:16 +0000 (+0000)
Subject: (ctree-find-calist): Delete duplicated result.
X-Git-Tag: apel-8_8~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4b205276907d8210db2cf069a91f96f8560b2bf9;p=elisp%2Fapel.git

(ctree-find-calist): Delete duplicated result.
---

diff --git a/calist.el b/calist.el
index 0554737..3da7ea6 100644
--- a/calist.el
+++ b/calist.el
@@ -136,7 +136,8 @@ even if other rules are matched for ALIST."
 			    (append (ctree-find-calist
 				     (cdr choice) ret-alist all)
 				    dest))
-		    (setq dest (cons ret-alist dest))
+		    (or (member ret-alist dest)
+			(setq dest (cons ret-alist dest)))
 		    )))))
 	(setq choices (cdr choices)))
       (or (and (not all) dest)
@@ -148,7 +149,8 @@ even if other rules are matched for ALIST."
 			      (append (ctree-find-calist
 				       (cdr default) ret-alist all)
 				      dest))
-		      (setq dest (cons ret-alist dest))
+		      (or (member ret-alist dest)
+			  (setq dest (cons ret-alist dest)))
 		      ))))
 	  )
       dest)))