sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-04-18 16:50:19 +01: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." Return number of bytes moved back for this to happen."
(let ((shift 0)) (let ((shift 0))
(while (and (not (zerop vlfi-start-pos)) (while (and (not (zerop vlfi-start-pos))
(< shift 3)
(/= (- vlfi-end-pos vlfi-start-pos) (/= (- vlfi-end-pos vlfi-start-pos)
(length (encode-coding-region (length (encode-coding-region
(point-min) (point-max) (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 (insert-file-contents-literally buffer-file-name nil
read-pos read-pos
(min vlfi-file-size read-end)) (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))) (< read-end vlfi-file-size)))
(defun vlfi-file-shift-forward (size-change) (defun vlfi-file-shift-forward (size-change)
@ -648,7 +649,7 @@ Return nil if EOF is reached, t otherwise."
size)))) size))))
;; write ;; write
(set-buffer write-buffer) (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)) read-more))
(provide 'vlfi) (provide 'vlfi)