branch: elpa/org-auto-tangle
commit 2688b907e01b561eaed496b5eef1bffed51c90ed
Author: davisrichard437 <davisrichard...@gmail.com>
Commit: davisrichard437 <davisrichard...@gmail.com>
Changed org-auto-tangle-async to read user value for
org-src-preserve-indentation.
---
org-auto-tangle.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/org-auto-tangle.el b/org-auto-tangle.el
index 0c1002d2eb..2b29638922 100644
--- a/org-auto-tangle.el
+++ b/org-auto-tangle.el
@@ -79,15 +79,16 @@ for a specific file, add its full path to this list.")
(async-start
(let ((args (list file)))
`(lambda ()
- (require 'org)
- (let ((start-time (current-time))
- (non-essential t)
- (org-confirm-babel-evaluate (not (member ,file
',org-auto-tangle-babel-safelist))))
- (apply #'org-babel-tangle-file ',args)
- (format "%.2f" (float-time (time-since start-time))))))
+ (require 'org)
+ (let ((start-time (current-time))
+ (non-essential t)
+ (org-confirm-babel-evaluate (not (member ,file
',org-auto-tangle-babel-safelist)))
+ (org-src-preserve-indentation ,org-src-preserve-indentation))
+ (apply #'org-babel-tangle-file ',args)
+ (format "%.2f" (float-time (time-since start-time))))))
(let ((message-string (format "Tangling %S completed after" file)))
`(lambda (tangle-time)
- (message "%s %s seconds",message-string tangle-time)))))
+ (message "%s %s seconds",message-string tangle-time)))))
(defun org-auto-tangle-tangle-if-needed ()
"Call org-auto-tangle-async if needed.
