From 5d7a54352bf7c47b3a266dc4b296d1b822fc8f2e Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 27 Apr 1998 09:57:40 +0000 Subject: [PATCH] (ctree-find-calist): Renamed from 'ctree-match-calist-all. --- calist.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/calist.el b/calist.el index 0d47b82..38f4889 100644 --- a/calist.el +++ b/calist.el @@ -84,8 +84,8 @@ ret-alist)))) )))) -(defun ctree-match-calist-all (rule-tree alist) - "Return matched condition-alist if ALIST matches RULE-TREE." +(defun ctree-find-calist (rule-tree alist) + "Return list of condition-alist which matches ALIST in RULE-TREE." (if (null rule-tree) (list alist) (let ((type (car rule-tree)) @@ -101,7 +101,7 @@ (if (cdr choice) (setq dest (append - (ctree-match-calist-all (cdr choice) ret-alist) + (ctree-find-calist (cdr choice) ret-alist) dest)) (setq dest (cons ret-alist dest)) ))))) @@ -111,7 +111,7 @@ (let ((ret-alist (calist-field-match alist type t))) (if ret-alist (if (cdr default) - (ctree-match-calist-all (cdr default) ret-alist) + (ctree-find-calist (cdr default) ret-alist) (list ret-alist) )))))))) -- 1.7.10.4