mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

Merge branch 'bugfix'

Browse source
This commit is contained in:
Kyle Meyer 2021-12-18 13:21:14 -05:00
parent 2b7ea20346 a18849b786
commit e26b825e6e
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ob-tangle.el
View file

@ -187,12 +187,14 @@ source code blocks by languages matching a regular expression.
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 (find-buffer-visiting file)) (let* ((visited (find-buffer-visiting file))
(buffer (or visited (find-file-noselect file)))) (buffer (or visited (find-file-noselect file))))
(prog1
(with-current-buffer buffer (with-current-buffer buffer
(org-with-wide-buffer (org-with-wide-buffer
(mapcar #'expand-file-name (org-babel-tangle nil target-file lang-re)))) (mapcar #'expand-file-name
(unless visited (kill-buffer buffer)))) (org-babel-tangle nil target-file lang-re))))
(unless visited (kill-buffer buffer)))))
(defun org-babel-tangle-publish (_ filename pub-dir) (defun org-babel-tangle-publish (_ filename pub-dir)
"Tangle FILENAME and place the results in PUB-DIR." "Tangle FILENAME and place the results in PUB-DIR."