From 4b205276907d8210db2cf069a91f96f8560b2bf9 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 3 May 1998 18:24:16 +0000 Subject: [PATCH] (ctree-find-calist): Delete duplicated result. --- calist.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4