sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-18 12:05:31 +00:00
Code Issues Releases Wiki Activity

Make chunk adjusting automatic.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-04-14 19:28:41 +03:00
parent 473536e050
commit 469900878d
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
vlfi.el
View File

@ -461,16 +461,22 @@ 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")
(defun vlfi-adjust-chunk ()
"Adjust chunk beginning until content can be properly decoded."
(interactive)
(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))
(let ((pos (point)))
(while (/= (- vlfi-end-pos vlfi-start-pos)
(length (encode-coding-region
(point-min) (point-max)
buffer-file-coding-system t)))
(setq pos (1- pos)
vlfi-start-pos (1- vlfi-start-pos))
(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))))