[elpa] externals/async d040f72cb0: New user var to handle large files warnings (#185)

[ELPA Syncer]

branch: externals/async
commit d040f72cb0be5265d50ac541ddb09ebbc68b7908
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    New user var to handle large files warnings (#185)
    
    Same as `large-file-warning-threshold' but for dired-async.
---
 dired-async.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/dired-async.el b/dired-async.el
index 7ae9942b9f..b0e8de6c60 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -81,6 +81,10 @@ or rename for `dired-async-skip-fast'."
   :risky t
   :type 'integer)
 
+(defcustom dired-async-large-file-warning-threshold 
large-file-warning-threshold
+  "Same as `large-file-warning-threshold' but for dired-async."
+  :type 'integer)
+
 (defface dired-async-message
     '((t (:foreground "yellow")))
   "Face used for mode-line message.")
@@ -243,10 +247,10 @@ cases if `dired-async-skip-fast' is non-nil."
                (nreverse quick-list) name-constructor marker-char))))
 
 (defun dired-async--abort-if-file-too-large (size op-type filename)
-  "If file SIZE larger than `large-file-warning-threshold', allow user to 
abort.
+  "Warn when FILENAME larger than `dired-async-large-file-warning-threshold'.
 Same as `abort-if-file-too-large' but without user-error."
-  (when (and large-file-warning-threshold size
-            (> size large-file-warning-threshold))
+  (when (and dired-async-large-file-warning-threshold size
+            (> size dired-async-large-file-warning-threshold))
     (files--ask-user-about-large-file
      size op-type filename nil)))