(let ((coding-system-for-write save-buffer-coding-system))
(basic-save-buffer-2))
(basic-save-buffer-2))
- (setq explicit-buffer-file-coding-system last-coding-system-used))
+ (setq buffer-file-coding-system-explicit last-coding-system-used))
;; This returns a value (MODES . BACKUPNAME), like backup-buffer.
(defun basic-save-buffer-2 ()
;; internal coding.
(if auto-save-p 'auto-save-coding
(or coding-system-for-read
- explicit-buffer-file-coding-system))))
+ buffer-file-coding-system-explicit))))
;; This force after-insert-file-set-coding
;; (called from insert-file-contents) to set
;; buffer-file-coding-system to a proper value.