mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Merge branch 'bugfix'

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

14
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."
(interactive "fFile to tangle: \nP")
(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))))
(let* ((visited (find-buffer-visiting file))
(buffer (or visited (find-file-noselect file))))
(prog1
(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."