[elpa] externals/vlf b52ca6c 063/310: Don't change encoding for edited chunk, leave it to the user in case

[Stefan Monnier]

branch: externals/vlf
commit b52ca6c044e39fa824d71bf1d488d8cde079fee9
Author: Andrey Kotlarski <m00naticus@gmail.com>
Commit: Andrey Kotlarski <m00naticus@gmail.com>

    Don't change encoding for edited chunk, leave it to the user in case
    of problem characters.
---
 vlfi.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/vlfi.el b/vlfi.el
index d7999d4..41a72cb 100644
--- a/vlfi.el
+++ b/vlfi.el
@@ -475,7 +475,6 @@ Save anyway? ")))
 (defun vlfi-file-shift-back (size-change)
   "Shift file contents SIZE-CHANGE bytes back."
   (let ((coding-system buffer-file-coding-system))
-    (set-buffer-file-coding-system 'raw-text t)
     (write-region nil nil buffer-file-name vlfi-start-pos t)
     (setq buffer-file-coding-system nil)
     (let ((read-start-pos vlfi-end-pos)
@@ -490,7 +489,7 @@ Save anyway? ")))
       (erase-buffer)
       (insert-char 32 size-change)
       (write-region nil nil buffer-file-name (- vlfi-file-size
-                                                size-change))
+                                                size-change) t)
       (progress-reporter-done reporter))
     (setq buffer-file-coding-system coding-system)))
 
@@ -517,7 +516,6 @@ Done by saving content up front and then writing previous 
batch."
       (set-buffer temp-buffer)
       (setq buffer-file-name file))
     (set-buffer vlfi-buffer)
-    (set-buffer-file-coding-system 'raw-text t)
     (let ((read-buffer temp-buffer)
           (write-buffer vlfi-buffer)
           (size (+ vlfi-batch-size size-change))