Mercurial > emacs
changeset 59226:1d3fcf11a9ad
(buffer-file-coding-system-explicit):
Renambed for explicit-buffer-file-coding-system.
(after-insert-file-set-coding): Adjusted for the above change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 30 Dec 2004 23:58:33 +0000 |
| parents | 5774379908fa |
| children | 70f5459eb260 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Thu Dec 30 23:56:23 2004 +0000 +++ b/lisp/international/mule.el Thu Dec 30 23:58:33 2004 +0000 @@ -1735,11 +1735,11 @@ ;; After writing, basic-save-buffer-1 sets this value to ;; last-coding-system-used. ;; This variable is used for decoding in revert-buffer. -(defvar explicit-buffer-file-coding-system nil +(defvar buffer-file-coding-system-explicit nil "The file coding system explicitly specified for the current buffer. Internal use only.") -(make-variable-buffer-local 'explicit-buffer-file-coding-system) -(put 'explicit-buffer-file-coding-system 'permanent-local t) +(make-variable-buffer-local 'buffer-file-coding-system-explicit) +(put 'buffer-file-coding-system-explicit 'permanent-local t) (defun after-insert-file-set-coding (inserted &optional visit) "Set `buffer-file-coding-system' of current buffer after text is inserted. @@ -1751,7 +1751,7 @@ (if (and visit coding-system-for-read (not (eq coding-system-for-read 'auto-save-coding))) - (setq explicit-buffer-file-coding-system coding-system-for-read)) + (setq buffer-file-coding-system-explicit coding-system-for-read)) (if last-coding-system-used (let ((coding-system (find-new-buffer-file-coding-system last-coding-system-used))