X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/2d2431cc6b6cce8dcdf4369e8c1efce9d90bb1a5..6517ec8921438deae6547ab5eb38e004935d5618:/packages/vlf/vlf-integrate.el

diff --git a/packages/vlf/vlf-integrate.el b/packages/vlf/vlf-integrate.el
index 435ac4563..7bc8f9475 100644
--- a/packages/vlf/vlf-integrate.el
+++ b/packages/vlf/vlf-integrate.el
@@ -29,6 +29,10 @@
 (defgroup vlf nil "View Large Files in Emacs."
   :prefix "vlf-" :group 'files)
 
+(defcustom vlf-batch-size 1000000
+  "Defines how large each batch of file data initially is (in bytes)."
+  :group 'vlf :type 'integer)
+
 (defcustom vlf-application 'ask
   "Determines when `vlf' will be offered on opening files.
 Possible values are: nil to never use it;
@@ -98,7 +102,8 @@ OP-TYPE specifies the file operation being performed over FILENAME."
     (vlf filename)
     (error ""))
    ((and large-file-warning-threshold
-         (< large-file-warning-threshold size))
+         (< large-file-warning-threshold size)
+         (< vlf-batch-size size))
     (if (eq vlf-application 'dont-ask)
         (progn (vlf filename)
                (error ""))