[elpa] externals/vlf 473536e 073/310: Add adjust command for cases where chunk starts with part of multibyte symbol.

[Stefan Monnier]

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

    Add adjust command for cases where chunk starts with part of multibyte 
symbol.
---
 vlfi.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/vlfi.el b/vlfi.el
index c99b4d4..3347ee1 100644
--- a/vlfi.el
+++ b/vlfi.el
@@ -67,6 +67,7 @@
     (define-key map "e" 'vlfi-edit-mode)
     (define-key map "j" 'vlfi-jump-to-chunk)
     (define-key map "l" 'vlfi-goto-line)
+    (define-key map "a" 'vlfi-adjust-chunk)
     map)
   "Keymap for `vlfi-mode'.")
 
@@ -460,6 +461,19 @@ Search is performed chunk by chunk in `vlfi-batch-size' 
memory."
         (vlfi-move-to-chunk start-pos end-pos)
         (goto-char pos)))))
 
+(defun vlfi-adjust-chunk (bytes)
+  "Adjust chunk beginning by BYTES."
+  (interactive "p")
+  (or (zerop vlfi-start-pos)
+      (let ((pos (+ (point) bytes)))
+        (setq vlfi-start-pos (- vlfi-start-pos bytes))
+        (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)
+        (goto-char pos))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; editing