diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-09-08 23:48:44 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-09-09 09:54:18 -0400 |
commit | 85e0c1ce756aad4d00faf639031536b66f371349 (patch) | |
tree | 1abb6652a7c507386893812c785f28fbf32539a2 | |
parent | 5adb8bcfa2d3611eaa6c69aab23103e60d28bd57 (diff) | |
download | org-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.el | 4 |
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)) |