[nongnu] elpa/org-auto-tangle 2688b907e0 1/6: Changed org-auto-tangle-async to read user value for org-src-preserve-indentation.

[ELPA Syncer]

branch: elpa/org-auto-tangle
commit 2688b907e01b561eaed496b5eef1bffed51c90ed
Author: davisrichard437 <davisrichard437@gmail.com>
Commit: davisrichard437 <davisrichard437@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.