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 change encoding for edited chunk, leave it to the user in case

Browse Source 
of problem characters.
This commit is contained in:
Andrey Kotlarski 2013-04-13 23:45:06 +03:00
parent 8637ce5ceb
commit b52ca6c044
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
vlfi.el
View File

@ -475,7 +475,6 @@ Save anyway? ")))
(defun vlfi-file-shift-back (size-change) (defun vlfi-file-shift-back (size-change)
"Shift file contents SIZE-CHANGE bytes back." "Shift file contents SIZE-CHANGE bytes back."
(let ((coding-system buffer-file-coding-system)) (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) (write-region nil nil buffer-file-name vlfi-start-pos t)
(setq buffer-file-coding-system nil) (setq buffer-file-coding-system nil)
(let ((read-start-pos vlfi-end-pos) (let ((read-start-pos vlfi-end-pos)
@ -490,7 +489,7 @@ Save anyway? ")))
(erase-buffer) (erase-buffer)
(insert-char 32 size-change) (insert-char 32 size-change)
(write-region nil nil buffer-file-name (- vlfi-file-size (write-region nil nil buffer-file-name (- vlfi-file-size
size-change)) size-change) t)
(progress-reporter-done reporter)) (progress-reporter-done reporter))
(setq buffer-file-coding-system coding-system))) (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) (set-buffer temp-buffer)
(setq buffer-file-name file)) (setq buffer-file-name file))
(set-buffer vlfi-buffer) (set-buffer vlfi-buffer)
(set-buffer-file-coding-system 'raw-text t)
(let ((read-buffer temp-buffer) (let ((read-buffer temp-buffer)
(write-buffer vlfi-buffer) (write-buffer vlfi-buffer)
(size (+ vlfi-batch-size size-change)) (size (+ vlfi-batch-size size-change))