tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

ob-tangle: Ignore narrowing when tangling a file

Browse source 
* lisp/ob-tangle.el (org-babel-tangle-file): Ignore narrowing in
a buffer visiting the file being tangled.
This commit is contained in:
Nicolas Goaziou 2021-12-18 15:40:25 +01:00
parent 1778eb94c5
commit aabcf9edf2
1 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/ob-tangle.el
View file

@ -179,15 +179,12 @@ source code blocks by languages matching a regular expression.
Return a list whose CAR is the tangled file name."
(interactive "fFile to tangle: \nP")
(let ((visited-p (find-buffer-visiting (expand-file-name file)))
to-be-removed)
(prog1
(save-window-excursion
(find-file file)
(setq to-be-removed (current-buffer))
(mapcar #'expand-file-name (org-babel-tangle nil target-file lang-re)))
(unless visited-p
(kill-buffer to-be-removed)))))
(let ((visited (find-buffer-visiting file))
(buffer (or visited (find-file-noselect file))))
(with-current-buffer buffer
(org-with-wide-buffer
(mapcar #'expand-file-name (org-babel-tangle nil target-file lang-re))))
(unless visited (kill-buffer buffer))))
(defun org-babel-tangle-publish (_ filename pub-dir)
"Tangle FILENAME and place the results in PUB-DIR."