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

Make detection of buffer size change on save more correct when dealing

Browse Source 
with Unicode.
This commit is contained in:
Andrey Kotlarski 2013-04-11 18:08:34 +03:00
parent 56134a8281
commit a3c405fd37
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
vlfi.el
View File

@ -50,6 +50,7 @@
(defvar vlfi-end-pos vlfi-batch-size (defvar vlfi-end-pos vlfi-batch-size
"Absolute position of the visible chunk end.") "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-buffer-size 0 "Buffer size of current chunk.")
(defvar vlfi-mode-map (defvar vlfi-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
@ -81,7 +82,9 @@
(make-local-variable 'vlfi-end-pos) (make-local-variable 'vlfi-end-pos)
(put 'vlfi-end-pos 'permanent-local t) (put 'vlfi-end-pos 'permanent-local t)
(make-local-variable 'vlfi-file-size) (make-local-variable 'vlfi-file-size)
(put 'vlfi-file-size 'permanent-local t)) (put 'vlfi-file-size 'permanent-local t)
(make-local-variable 'vlfi-buffer-size)
(put 'vlfi-buffer-size 'permanent-local t))
(defun vlfi-change-batch-size (decrease) (defun vlfi-change-batch-size (decrease)
"Change the buffer-local value of `vlfi-batch-size'. "Change the buffer-local value of `vlfi-batch-size'.
@ -135,7 +138,8 @@ When prefix argument is negative
vlfi-start-pos) vlfi-start-pos)
end) end)
(goto-char pos)) (goto-char pos))
(setq vlfi-end-pos end)) (setq vlfi-end-pos end
vlfi-buffer-size (buffer-size)))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(vlfi-update-buffer-name)) (vlfi-update-buffer-name))
@ -162,7 +166,8 @@ When prefix argument is negative
vlfi-start-pos vlfi-start-pos
vlfi-end-pos)) vlfi-end-pos))
(goto-char (- (point-max) pos)) (goto-char (- (point-max) pos))
(setq vlfi-start-pos start)) (setq vlfi-start-pos start
vlfi-buffer-size (buffer-size)))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(vlfi-update-buffer-name)) (vlfi-update-buffer-name))
@ -182,6 +187,7 @@ Adjust according to file start/end and show `vlfi-batch-size' bytes."
(insert-file-contents buffer-file-name nil (insert-file-contents buffer-file-name nil
vlfi-start-pos vlfi-end-pos) vlfi-start-pos vlfi-end-pos)
(goto-char pos)) (goto-char pos))
(setq vlfi-buffer-size (buffer-size))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(vlfi-update-buffer-name)) (vlfi-update-buffer-name))
@ -198,6 +204,7 @@ Adjust according to file start/end and show `vlfi-batch-size' bytes."
(insert-file-contents buffer-file-name nil (insert-file-contents buffer-file-name nil
vlfi-start-pos vlfi-end-pos) vlfi-start-pos vlfi-end-pos)
(goto-char pos)) (goto-char pos))
(setq vlfi-buffer-size (buffer-size))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(vlfi-update-buffer-name)) (vlfi-update-buffer-name))
@ -413,7 +420,7 @@ If changing size of chunk, may load the remaining part of file first."
(interactive) (interactive)
(when (and (derived-mode-p 'vlfi-mode) (when (and (derived-mode-p 'vlfi-mode)
(buffer-modified-p)) (buffer-modified-p))
(let ((size-change (- vlfi-end-pos vlfi-start-pos (buffer-size)))) (let ((size-change (- vlfi-buffer-size (buffer-size))))
(if (zerop size-change) (if (zerop size-change)
(vlfi-write-1) (vlfi-write-1)
(setq vlfi-file-size (nth 7 (setq vlfi-file-size (nth 7