[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org a18849b 2/2: org-babel-tangle-file: Revert
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org a18849b 2/2: org-babel-tangle-file: Revert recent change in return value |
Date: |
Sat, 18 Dec 2021 13:57:31 -0500 (EST) |
branch: externals-release/org
commit a18849b786c1f0081f2942be9c288c62bc59fa42
Author: Kyle Meyer <kyle@kyleam.com>
Commit: Kyle Meyer <kyle@kyleam.com>
org-babel-tangle-file: Revert recent change in return value
* lisp/ob-tangle.el (org-babel-tangle-file): Restore the recently
removed prog1 so that the return value matches the documented one.
---
lisp/ob-tangle.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index c80b613..8ed7002 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -181,10 +181,12 @@ 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))))
+ (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."