[elpa] master c8b2bdf 2/5: packages/vlf: [tyny change] Make vlf-batch-size configurable in the

[Andrey Kotlarski]

branch: master
commit c8b2bdf33f8d279ba8b5cd2cb0de3f6b410e7dcf
Author: Dan Harms <address@hidden>
Commit: Andrey Kotlarski <address@hidden>

    packages/vlf: [tyny change] Make vlf-batch-size configurable in the
    remote case, make mode-line batch indicators more accurate.
---
 packages/vlf/vlf.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/packages/vlf/vlf.el b/packages/vlf/vlf.el
index e695c2c..65c08af 100644
--- a/packages/vlf/vlf.el
+++ b/packages/vlf/vlf.el
@@ -53,6 +53,10 @@ One argument is supplied that specifies current action.  
Possible
 values are: `write', `ediff', `occur', `search', `goto-line'."
   :group 'vlf :type 'hook)
 
+(defcustom vlf-batch-size-remote 1024
+  "Defines size (in bytes) of a batch of file data when accessed remotely."
+  :group 'vlf :type 'integer)
+
 (defvar hexl-bits)
 
 (autoload 'vlf-write "vlf-write" "Write current chunk to file." t)
@@ -105,8 +109,8 @@ values are: `write', `ediff', `occur', `search', 
`goto-line'."
   "Mode to browse large files in."
   :group 'vlf :keymap vlf-prefix-map
   :lighter (:eval (format " VLF[%d/%d](%s)"
-                          (/ vlf-end-pos vlf-batch-size)
-                          (/ vlf-file-size vlf-batch-size)
+                          (ceiling vlf-end-pos vlf-batch-size)
+                          (ceiling vlf-file-size vlf-batch-size)
                           (file-size-human-readable vlf-file-size)))
   (cond (vlf-mode
          (set (make-local-variable 'require-final-newline) nil)
@@ -172,8 +176,10 @@ Return newly created buffer."
     (set-buffer vlf-buffer)
     (set-visited-file-name file)
     (set-buffer-modified-p nil)
-    (if (or minimal (file-remote-p file))
-        (set (make-local-variable 'vlf-batch-size) 1024))
+    (cond (minimal
+           (set (make-local-variable 'vlf-batch-size) 1024))
+          ((file-remote-p file)
+           (set (make-local-variable 'vlf-batch-size) vlf-batch-size-remote)))
     (vlf-mode 1)
     (when minimal                 ;restore batch size to default value
       (kill-local-variable 'vlf-batch-size)