mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 06:00:41 -08:00
Code Issues Projects Releases Wiki Activity

(revert-buffer, recover-file): Use utf-8-emacs coding

Browse source 
system, not emacs-mule.
This commit is contained in:
Dave Love 2002-05-27 14:52:32 +00:00
parent 7f04a67e3b
commit 41db09b7a3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/files.el
View file

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