3239 |
(let ((coding-system-for-write save-buffer-coding-system)) |
(let ((coding-system-for-write save-buffer-coding-system)) |
3240 |
(basic-save-buffer-2)) |
(basic-save-buffer-2)) |
3241 |
(basic-save-buffer-2)) |
(basic-save-buffer-2)) |
3242 |
(setq explicit-buffer-file-coding-system last-coding-system-used)) |
(setq buffer-file-coding-system-explicit last-coding-system-used)) |
3243 |
|
|
3244 |
;; This returns a value (MODES . BACKUPNAME), like backup-buffer. |
;; This returns a value (MODES . BACKUPNAME), like backup-buffer. |
3245 |
(defun basic-save-buffer-2 () |
(defun basic-save-buffer-2 () |
3713 |
;; internal coding. |
;; internal coding. |
3714 |
(if auto-save-p 'auto-save-coding |
(if auto-save-p 'auto-save-coding |
3715 |
(or coding-system-for-read |
(or coding-system-for-read |
3716 |
explicit-buffer-file-coding-system)))) |
buffer-file-coding-system-explicit)))) |
3717 |
;; This force after-insert-file-set-coding |
;; This force after-insert-file-set-coding |
3718 |
;; (called from insert-file-contents) to set |
;; (called from insert-file-contents) to set |
3719 |
;; buffer-file-coding-system to a proper value. |
;; buffer-file-coding-system to a proper value. |