From: morioka <morioka>
Date: Mon, 27 Apr 1998 09:57:40 +0000 (+0000)
Subject: (ctree-find-calist): Renamed from 'ctree-match-calist-all.
X-Git-Tag: apel-8_6~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5d7a54352bf7c47b3a266dc4b296d1b822fc8f2e;hp=e74a04c6b0705b874e09c0b98b24ce55780ac08d;p=elisp%2Fapel.git

(ctree-find-calist): Renamed from 'ctree-match-calist-all.
---

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