branch: master
commit c8b2bdf33f8d279ba8b5cd2cb0de3f6b410e7dcf
Author: Dan Harms <dan.ha...@xrtrading.com>
Commit: Andrey Kotlarski <m00nati...@gmail.com>
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)
