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

Don't adjust chunk with more that 3 bytes and inhibit spurious update

Browse Source 
messages when saving content with changes size.
This commit is contained in:
Andrey Kotlarski 2013-04-15 15:04:22 +03:00
parent 5aef3e1c27
commit e3be8d5d98
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
vlfi.el
View File

@ -345,6 +345,7 @@ When given MINIMAL flag, skip non important operations."
Return number of bytes moved back for this to happen."
(let ((shift 0))
(while (and (not (zerop vlfi-start-pos))
(< shift 3)
(/= (- vlfi-end-pos vlfi-start-pos)
(length (encode-coding-region
(point-min) (point-max)
@ -595,7 +596,7 @@ back at WRITE-POS. Return nil if EOF is reached, t otherwise."
(insert-file-contents-literally buffer-file-name nil
read-pos
(min vlfi-file-size read-end))
(write-region nil nil buffer-file-name write-pos t)
(write-region nil nil buffer-file-name write-pos 0)
(< read-end vlfi-file-size)))
(defun vlfi-file-shift-forward (size-change)
@ -648,7 +649,7 @@ Return nil if EOF is reached, t otherwise."
size))))
;; write
(set-buffer write-buffer)
(write-region nil nil buffer-file-name write-pos t)
(write-region nil nil buffer-file-name write-pos 0)
read-more))
(provide 'vlfi)