浏览代码

add "eval" option to noweb

* lisp/ob.el (org-babel-merge-params): Add "eval" as acceptable noweb
  argument.
  (org-babel-noweb-p): The "eval" argument only expands during
  evaluation.
Eric Schulte 13 年之前
父节点
当前提交
3f4383baa4
共有 1 个文件被更改,包括 3 次插入2 次删除
  1. 3 2
      lisp/ob.el

+ 3 - 2
lisp/ob.el

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