mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-30 03:57:58 +00:00
Code Releases Activity

Fix bug in org-babel-tangle-file with symlinked files

Browse source 
Assume that there is file A and symlink B that points to file A. If
there is an open buffer that points to A and we
call (org-babel-tangle-file "B"), then this function kills the buffer
since get-file-buffer does not follow symlinks.
This commit is contained in:
Christian Dietrich 2019-08-13 15:43:03 +02:00 committed by Nicolas Goaziou
parent 96cc762ff3
commit a72466ce8d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ob-tangle.el
View file

@ -174,7 +174,7 @@ export file for all source blocks. Optional argument LANG can be
used to limit the exported source code blocks by language. used to limit the exported source code blocks by language.
Return a list whose CAR is the tangled file name." Return a list whose CAR is the tangled file name."
(interactive "fFile to tangle: \nP") (interactive "fFile to tangle: \nP")
(let ((visited-p (get-file-buffer (expand-file-name file))) (let ((visited-p (find-buffer-visiting (expand-file-name file)))
to-be-removed) to-be-removed)
(prog1 (prog1
(save-window-excursion (save-window-excursion