projects / elisp / apel.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: d51432a)
(ctree-find-calist): Delete duplicated result.
authormorioka <morioka>
Sun, 3 May 1998 18:24:16 +0000 (18:24 +0000)
committermorioka <morioka>
Sun, 3 May 1998 18:24:16 +0000 (18:24 +0000)
calist.el patch | blob | history

diff --git a/calist.el b/calist.el
index 0554737..3da7ea6 100644 (file)
--- 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)))