tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Disambiguate intersection name. 

* lisp/ob.el (org-babel-noweb-p): Disambiguate intersection name.
This commit is contained in:
Eric Schulte 2012-01-19 15:04:14 -07:00
parent 5bbc0a593e
commit bded90ba48
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ob.el
View File

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