branch: externals/vlf
commit 87871866190537f0889441db44b8b396c172ab47
Author: Andrey Kotlarski <[email protected]>
Commit: Andrey Kotlarski <[email protected]>
Show paging according to batch size instead of percentage.
---
vlfi.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/vlfi.el b/vlfi.el
index 37db8cc..6850b6f 100644
--- a/vlfi.el
+++ b/vlfi.el
@@ -101,10 +101,11 @@ with the prefix argument DECREASE it is halved."
(defun vlfi-format-buffer-name ()
"Return format for vlfi buffer name."
- (format "%s(%s)[%.2f%%%%](%d)"
+ (format "%s(%s)[%d/%d](%d)"
(file-name-nondirectory buffer-file-name)
(file-size-human-readable vlfi-file-size)
- (/ (* 100 vlfi-end-pos) (float vlfi-file-size))
+ (/ vlfi-end-pos vlfi-batch-size)
+ (/ vlfi-file-size vlfi-batch-size)
vlfi-batch-size))
(defun vlfi-update-buffer-name ()
@@ -120,7 +121,7 @@ When prefix argument is negative
(interactive "p")
(let ((end (+ vlfi-end-pos (* vlfi-batch-size
(abs append)))))
- (when (< vlfi-file-size end) ; re-check file size
+ (when (< vlfi-file-size end) ; re-check file size
(setq vlfi-file-size (nth 7 (file-attributes buffer-file-name)))
(cond ((= vlfi-end-pos vlfi-file-size)
(error "Already at EOF"))
@@ -197,7 +198,7 @@ Adjust according to file start/end and show
`vlfi-batch-size' bytes."
(defun vlfi-move-to-chunk (start end)
"Move to chunk determined by START END."
- (if (< vlfi-file-size end) ; re-check file size
+ (if (< vlfi-file-size end) ; re-check file size
(setq vlfi-file-size (nth 7
(file-attributes buffer-file-name))))
(setq vlfi-start-pos (max 0 start)
@@ -452,7 +453,7 @@ Remaining part of the file ["
(goto-char (point-max))
(insert-file-contents buffer-file-name nil
vlfi-end-pos vlfi-file-size)
- (when (< 0 size-change) ; pad with empty characters
+ (when (< 0 size-change) ; pad with empty characters
(goto-char (point-max))
(insert-char 32 size-change))
(vlfi-write-1)
