From bded90ba488a723943dc50e777b1e30e648efc11 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 19 Jan 2012 15:04:14 -0700 Subject: [PATCH] Disambiguate intersection name. * lisp/ob.el (org-babel-noweb-p): Disambiguate intersection name. --- lisp/ob.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 4b209dae0..d197ddbee 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -2097,12 +2097,12 @@ header argument from buffer or subtree wide properties.") (defun org-babel-noweb-p (params context) "Check if PARAMS require expansion in CONTEXT. CONTEXT may be one of :tangle, :export or :eval." - (flet ((intersection (as bs) + (flet ((intersect (as bs) (when as (if (member (car as) bs) (car as) - (intersection (cdr as) bs))))) - (intersection (case context + (intersect (cdr as) bs))))) + (intersect (case context (:tangle '("yes" "tangle" "no-export")) (:eval '("yes" "no-export")) (:export '("yes"))) -- 2.11.4.GIT