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

Update file size changes more lazily.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-04-15 01:26:58 +03:00
parent ca8ba42ec4
commit 5aef3e1c27
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
vlfi.el
View File

@ -242,14 +242,11 @@ When prefix argument is supplied and positive
When prefix argument is negative When prefix argument is negative
append next APPEND number of batches to the existing buffer." append next APPEND number of batches to the existing buffer."
(interactive "p") (interactive "p")
(let ((end (+ vlfi-end-pos (* vlfi-batch-size (or (verify-visited-file-modtime)
(abs append))))) (setq vlfi-file-size (vlfi-get-file-size buffer-file-name)))
(when (< vlfi-file-size end) ; re-check file size (let ((end (min (+ vlfi-end-pos (* vlfi-batch-size
(setq vlfi-file-size (vlfi-get-file-size buffer-file-name)) (abs append)))
(cond ((= vlfi-end-pos vlfi-file-size) vlfi-file-size)))
(error "Already at EOF"))
((< vlfi-file-size end)
(setq end vlfi-file-size))))
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(do-append (< append 0)) (do-append (< append 0))
(pos (position-bytes (point)))) (pos (position-bytes (point))))
@ -277,6 +274,8 @@ When prefix argument is negative
(interactive "p") (interactive "p")
(if (zerop vlfi-start-pos) (if (zerop vlfi-start-pos)
(error "Already at BOF")) (error "Already at BOF"))
(or (verify-visited-file-modtime)
(setq vlfi-file-size (vlfi-get-file-size buffer-file-name)))
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(start (max 0 (- vlfi-start-pos (* vlfi-batch-size (start (max 0 (- vlfi-start-pos (* vlfi-batch-size
(abs prepend))))) (abs prepend)))))
@ -285,7 +284,8 @@ When prefix argument is negative
(position-bytes (point))))) (position-bytes (point)))))
(if do-prepend (if do-prepend
(goto-char (point-min)) (goto-char (point-min))
(setq vlfi-end-pos (+ start vlfi-batch-size)) (setq vlfi-end-pos (min (+ start vlfi-batch-size)
vlfi-file-size))
(erase-buffer)) (erase-buffer))
(insert-file-contents buffer-file-name nil start (insert-file-contents buffer-file-name nil start
(if do-prepend (if do-prepend
@ -304,12 +304,13 @@ When prefix argument is negative
"Move to batch determined by START. "Move to batch determined by START.
Adjust according to file start/end and show `vlfi-batch-size' bytes. Adjust according to file start/end and show `vlfi-batch-size' bytes.
When given MINIMAL flag, skip non important operations." When given MINIMAL flag, skip non important operations."
(or (verify-visited-file-modtime)
(setq vlfi-file-size (vlfi-get-file-size buffer-file-name)))
(setq vlfi-start-pos (max 0 start) (setq vlfi-start-pos (max 0 start)
vlfi-end-pos (+ vlfi-start-pos vlfi-batch-size)) vlfi-end-pos (min (+ vlfi-start-pos vlfi-batch-size)
(if (< vlfi-file-size vlfi-end-pos) ; re-check file size vlfi-file-size))
(setq vlfi-file-size (vlfi-get-file-size buffer-file-name) (if (= vlfi-file-size vlfi-end-pos) ; re-check file size
vlfi-end-pos (min vlfi-end-pos vlfi-file-size) (setq vlfi-start-pos (max 0 (- vlfi-end-pos vlfi-batch-size))))
vlfi-start-pos (max 0 (- vlfi-end-pos vlfi-batch-size))))
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(pos (position-bytes (point)))) (pos (position-bytes (point))))
(erase-buffer) (erase-buffer)
@ -318,14 +319,13 @@ When given MINIMAL flag, skip non important operations."
(goto-char (or (byte-to-position (+ pos (vlfi-adjust-chunk))) (goto-char (or (byte-to-position (+ pos (vlfi-adjust-chunk)))
(point-max)))) (point-max))))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(unless minimal (set-visited-file-modtime)
(set-visited-file-modtime) (or minimal(vlfi-update-buffer-name)))
(vlfi-update-buffer-name)))
(defun vlfi-move-to-chunk (start end &optional minimal) (defun vlfi-move-to-chunk (start end &optional minimal)
"Move to chunk determined by START END. "Move to chunk determined by START END.
When given MINIMAL flag, skip non important operations." When given MINIMAL flag, skip non important operations."
(if (< vlfi-file-size end) ; re-check file size (or (verify-visited-file-modtime)
(setq vlfi-file-size (vlfi-get-file-size buffer-file-name))) (setq vlfi-file-size (vlfi-get-file-size buffer-file-name)))
(setq vlfi-start-pos (max 0 start) (setq vlfi-start-pos (max 0 start)
vlfi-end-pos (min end vlfi-file-size)) vlfi-end-pos (min end vlfi-file-size))
@ -337,9 +337,8 @@ When given MINIMAL flag, skip non important operations."
(goto-char (or (byte-to-position (+ pos (vlfi-adjust-chunk))) (goto-char (or (byte-to-position (+ pos (vlfi-adjust-chunk)))
(point-max)))) (point-max))))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(unless minimal (set-visited-file-modtime)
(set-visited-file-modtime) (or minimal (vlfi-update-buffer-name)))
(vlfi-update-buffer-name)))
(defun vlfi-adjust-chunk () (defun vlfi-adjust-chunk ()
"Adjust chunk beginning until content can be properly decoded. "Adjust chunk beginning until content can be properly decoded.
@ -590,7 +589,8 @@ Save anyway? ")))
"Read `vlfi-batch-size' bytes from READ-POS and write them \ "Read `vlfi-batch-size' bytes from READ-POS and write them \
back at WRITE-POS. Return nil if EOF is reached, t otherwise." back at WRITE-POS. Return nil if EOF is reached, t otherwise."
(erase-buffer) (erase-buffer)
(setq vlfi-file-size (vlfi-get-file-size buffer-file-name)) (or (verify-visited-file-modtime)
(setq vlfi-file-size (vlfi-get-file-size buffer-file-name)))
(let ((read-end (+ read-pos vlfi-batch-size))) (let ((read-end (+ read-pos vlfi-batch-size)))
(insert-file-contents-literally buffer-file-name nil (insert-file-contents-literally buffer-file-name nil
read-pos read-pos