sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-02-07 05:30:47 +00:00
Code Issues Releases Wiki Activity

Remove encode size bookkeeping.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-08-09 02:00:34 +03:00
parent 2d71996d9e
commit 737c1e9979
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
vlfi.el
View File

@ -53,7 +53,6 @@
"Absolute position of the visible chunk start.") "Absolute position of the visible chunk start.")
(defvar vlfi-end-pos 0 "Absolute position of the visible chunk end.") (defvar vlfi-end-pos 0 "Absolute position of the visible chunk end.")
(defvar vlfi-file-size 0 "Total size of presented file.") (defvar vlfi-file-size 0 "Total size of presented file.")
(defvar vlfi-encode-size 0 "Size in bytes of current batch decoded.")
(defvar vlfi-mode-map (defvar vlfi-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
@ -79,7 +78,6 @@
(put 'vlfi-start-pos 'permanent-local t) (put 'vlfi-start-pos 'permanent-local t)
(put 'vlfi-end-pos 'permanent-local t) (put 'vlfi-end-pos 'permanent-local t)
(put 'vlfi-file-size 'permanent-local t) (put 'vlfi-file-size 'permanent-local t)
(put 'vlfi-encode-size 'permanent-local t)
(define-derived-mode vlfi-mode special-mode "VLFI" (define-derived-mode vlfi-mode special-mode "VLFI"
"Mode to browse large files in." "Mode to browse large files in."
@ -92,8 +90,7 @@
(make-local-variable 'vlfi-batch-size) (make-local-variable 'vlfi-batch-size)
(make-local-variable 'vlfi-start-pos) (make-local-variable 'vlfi-start-pos)
(make-local-variable 'vlfi-end-pos) (make-local-variable 'vlfi-end-pos)
(make-local-variable 'vlfi-file-size) (make-local-variable 'vlfi-file-size))
(make-local-variable 'vlfi-encode-size))
;;;###autoload ;;;###autoload
(defun vlfi (file) (defun vlfi (file)
@ -799,12 +796,10 @@ If changing size of chunk, shift remaining file content."
(y-or-n-p "File has changed since visited or saved. \ (y-or-n-p "File has changed since visited or saved. \
Save anyway? "))) Save anyway? ")))
(let ((pos (point)) (let ((pos (point))
(size-change (- vlfi-encode-size (size-change (- vlfi-end-pos vlfi-start-pos
(setq vlfi-encode-size
(length (encode-coding-region (length (encode-coding-region
(point-min) (point-max) (point-min) (point-max)
buffer-file-coding-system buffer-file-coding-system t)))))
t))))))
(cond ((zerop size-change) (cond ((zerop size-change)
(write-region nil nil buffer-file-name vlfi-start-pos t)) (write-region nil nil buffer-file-name vlfi-start-pos t))
((< 0 size-change) ((< 0 size-change)