[elpa] externals/vlf 090cebc 028/310: Add procedure to insert strictly batch sized chunk (if possible).

[Stefan Monnier]

branch: externals/vlf
commit 090cebc2ab2c6d32e974ee6bb2aaca3cfc18b9c8
Author: Andrey Kotlarski <m00naticus@gmail.com>
Commit: Andrey Kotlarski <m00naticus@gmail.com>

    Add procedure to insert strictly batch sized chunk (if possible).
---
 vlfi.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/vlfi.el b/vlfi.el
index 017040e..8e24b38 100644
--- a/vlfi.el
+++ b/vlfi.el
@@ -164,6 +164,23 @@ When prefix argument is negative
   (set-buffer-modified-p nil)
   (vlfi-update-buffer-name))
 
+(defun vlfi-move-to-batch (start)
+  "Move to batch determined by START.
+Adjust according to file start/end and show `vlfi-batch-size' bytes."
+  (setq vlfi-start-pos (max 0 start)
+        vlfi-end-pos (+ vlfi-start-pos vlfi-batch-size))
+  (if (< vlfi-file-size vlfi-end-pos)   ; re-check file size
+      (setq vlfi-file-size
+            (nth 7 (file-attributes buffer-file-name))
+            vlfi-end-pos (min vlfi-end-pos vlfi-file-size)
+            vlfi-start-pos (max 0 (- vlfi-end-pos vlfi-batch-size))))
+  (let ((inhibit-read-only t))
+    (erase-buffer)
+    (insert-file-contents buffer-file-name nil
+                          vlfi-start-pos vlfi-end-pos))
+  (set-buffer-modified-p nil)
+  (vlfi-update-buffer-name))
+
 (defun vlfi-move-to-chunk (start end)
   "Move to chunk determined by START END."
   (if (< vlfi-file-size end)          ; re-check file size