From b62bc046128df83c816a9b199ab5b4a7fcf93837 Mon Sep 17 00:00:00 2001 From: Dan Harms Date: Fri, 7 Jul 2017 16:29:47 -0500 Subject: [PATCH] Issue 31 Make vlf-batch-size configurable in the remote case --- vlf.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/vlf.el b/vlf.el index e695c2c..5d6fcb0 100644 --- a/vlf.el +++ b/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) @@ -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)