mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

(revert-buffer, recover-file): Bind

Browse source 
coding-system-for-read to emacs-mule-unix, not to no-conversion.
This commit is contained in:
Eli Zaretskii 2000-12-01 15:30:43 +00:00
parent 2b69bc119b
commit 68875f0e7b
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2000-12-01 Eli Zaretskii <eliz@is.elta.co.il>
* files.el (revert-buffer, recover-file): Bind
coding-system-for-read to emacs-mule-unix, not to no-conversion.
2000-12-01 Gerd Moellmann <gerd@gnu.org>
* hi-lock.el (hi-lock-refontify): Call jit-lock-refontify.

4
lisp/files.el
View file

@ -3014,7 +3014,7 @@ non-nil, it is called instead of rereading visited file contents."
(let ((coding-system-for-read
;; Auto-saved file shoule be read without
;; any code conversion.
(if auto-save-p 'no-conversion
(if auto-save-p 'emacs-mule-unix
coding-system-for-read)))
;; Note that this preserves point in an intelligent way.
(insert-file-contents file-name (not auto-save-p)
@ -3065,7 +3065,7 @@ non-nil, it is called instead of rereading visited file contents."
;; Keep the current buffer-file-coding-system.
(coding-system buffer-file-coding-system)
;; Auto-saved file shoule be read without any code conversion.
(coding-system-for-read 'no-conversion))
(coding-system-for-read 'emacs-mule-unix))
(erase-buffer)
(insert-file-contents file-name nil)
(set-buffer-file-coding-system coding-system))