# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1104451113 0
# Node ID 1d3fcf11a9ad877fa50add0b57db37e42a7b0de5
# Parent  5774379908fa9d5996ed299881c799afd0a15dce
(buffer-file-coding-system-explicit):
Renambed for explicit-buffer-file-coding-system.
(after-insert-file-set-coding): Adjusted for the above change.

diff -r 5774379908fa -r 1d3fcf11a9ad lisp/international/mule.el
--- 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))