瀏覽代碼

babel: now correctly combining nested tangle header arguments

Eric Schulte 15 年之前
父節點
當前提交
da03a848e5
共有 1 個文件被更改,包括 2 次插入3 次删除
  1. 2 3
      contrib/babel/lisp/org-babel.el

+ 2 - 3
contrib/babel/lisp/org-babel.el

@@ -871,9 +871,8 @@ parameters when merging lists."
                         (:exports
                          (setq exports (e-merge exports-exclusive-groups
                                                 exports (split-string (cdr pair)))))
-                        (:tangle
-                         (setq tangle (e-merge '(("yes" "no"))
-                                               tangle (split-string (or (cdr pair) "")))))
+                        (:tangle ;; take the latest -- always overwrite
+                         (setq tangle (or (list (cdr pair)) tangle)))
                         (:noweb
                          (setq noweb (e-merge '(("yes" "no"))
                                                noweb (split-string (or (cdr pair) "")))))