forked from mirrors/org-mode
Disambiguate intersection name.
* lisp/ob.el (org-babel-noweb-p): Disambiguate intersection name.
This commit is contained in:
parent
5bbc0a593e
commit
bded90ba48
|
@ -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")))
|
||||
|
|
Loading…
Reference in New Issue