From b52ca6c044e39fa824d71bf1d488d8cde079fee9 Mon Sep 17 00:00:00 2001 From: Andrey Kotlarski Date: Sat, 13 Apr 2013 23:45:06 +0300 Subject: [PATCH] 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))