|
@@ -2116,7 +2116,8 @@ parameters when merging lists."
|
|
(setq tangle (or (list (cdr pair)) tangle)))
|
|
(setq tangle (or (list (cdr pair)) tangle)))
|
|
(:noweb
|
|
(:noweb
|
|
(setq noweb (e-merge
|
|
(setq noweb (e-merge
|
|
- '(("yes" "no" "tangle" "no-export" "strip-export"))
|
|
|
|
|
|
+ '(("yes" "no" "tangle" "no-export"
|
|
|
|
+ "strip-export" "eval"))
|
|
noweb
|
|
noweb
|
|
(split-string (or (cdr pair) "")))))
|
|
(split-string (or (cdr pair) "")))))
|
|
(:cache
|
|
(:cache
|
|
@@ -2160,7 +2161,7 @@ CONTEXT may be one of :tangle, :export or :eval."
|
|
(intersect (cdr as) bs)))))
|
|
(intersect (cdr as) bs)))))
|
|
(intersect (case context
|
|
(intersect (case context
|
|
(:tangle '("yes" "tangle" "no-export" "strip-export"))
|
|
(:tangle '("yes" "tangle" "no-export" "strip-export"))
|
|
- (:eval '("yes" "no-export" "strip-export"))
|
|
|
|
|
|
+ (:eval '("yes" "no-export" "strip-export" "eval"))
|
|
(:export '("yes")))
|
|
(:export '("yes")))
|
|
(split-string (or (cdr (assoc :noweb params)) "")))))
|
|
(split-string (or (cdr (assoc :noweb params)) "")))))
|
|
|
|
|