From e205f8c14871ea410152fa166a9c528be607858e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 31 Dec 2004 00:00:42 +0000 Subject: [PATCH] (buffer-file-coding-system-explicit): Renambed for explicit-buffer-file-coding-system. (after-insert-file-set-coding): Adjusted for the above change. --- lisp/ChangeLog | 11 +++++++++++ lisp/international/mule.el | 8 ++++---- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index de2e0ac535c..45f45dd39b8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2004-12-31 Kenichi Handa + + * international/mule.el (buffer-file-coding-system-explicit): + Renambed for explicit-buffer-file-coding-system. + (after-insert-file-set-coding): Adjusted for the above change. + + * files.el (revert-buffer): Change + explicit-buffer-file-coding-system to + buffer-file-coding-system-explicit. + (basic-save-buffer-1): Likewise. + 2004-12-30 Luc Teirlinck * autorevert.el (auto-revert-tail-handler): Put in undo boundaries. diff --git a/lisp/international/mule.el b/lisp/international/mule.el index b493747bc61..fe16d07fe17 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1735,11 +1735,11 @@ function by default." ;; 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 @@ The optional second arg VISIT non-nil means that we are visiting a file." (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)) -- 2.39.2