summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-09-08 23:48:44 -0400
committerKyle Meyer <kyle@kyleam.com>2015-09-09 09:54:18 -0400
commit85e0c1ce756aad4d00faf639031536b66f371349 (patch)
tree1abb6652a7c507386893812c785f28fbf32539a2
parent5adb8bcfa2d3611eaa6c69aab23103e60d28bd57 (diff)
downloadorg-mode-85e0c1ce756aad4d00faf639031536b66f371349.tar.gz
Fix tangling in indirect buffers
* lisp/ob-tangle.el (org-babel-tangle-single-block): Get file name from base buffer. (org-babel-tangle): Use file name from attribute list returned by org-babel-tangle-single-block. Reported-by: Rainer M Krug <Rainer@krugs.de> <http://permalink.gmane.org/gmane.emacs.orgmode/100845>
-rw-r--r--lisp/ob-tangle.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index d20c2b3..cf48db3 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -242,7 +242,7 @@ used to limit the exported source code blocks by language."
(base-name (cond
((string= "yes" tangle)
(file-name-sans-extension
- (buffer-file-name)))
+ (nth 1 spec)))
((string= "no" tangle) nil)
((> (length tangle) 0) tangle)))
(file-name (when base-name
@@ -427,7 +427,7 @@ list to be used by `org-babel-tangle' directly."
(start-line
(save-restriction (widen)
(+ 1 (line-number-at-pos (point)))))
- (file (buffer-file-name))
+ (file (buffer-file-name (buffer-base-buffer)))
(src-lang (nth 0 info))
(params (nth 2 info))
(extra (nth 3 info))