[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.212 
emacs/lisp/international/mule.el:1.213
*** emacs/lisp/international/mule.el:1.212      Thu Dec 30 12:39:58 2004
--- emacs/lisp/international/mule.el    Thu Dec 30 23:58:33 2004
***************
*** 1735,1745 ****
  ;;       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
    "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)
  
  (defun after-insert-file-set-coding (inserted &optional visit)
    "Set `buffer-file-coding-system' of current buffer after text is inserted.
--- 1735,1745 ----
  ;;       After writing, basic-save-buffer-1 sets this value to
  ;;       last-coding-system-used.
  ;; This variable is used for decoding in revert-buffer.
! (defvar buffer-file-coding-system-explicit nil
    "The file coding system explicitly specified for the current buffer.
  Internal use only.")
! (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,1757 ****
    (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))
    (if last-coding-system-used
        (let ((coding-system
             (find-new-buffer-file-coding-system last-coding-system-used))
--- 1751,1757 ----
    (if (and visit
           coding-system-for-read
           (not (eq coding-system-for-read 'auto-save-coding)))
!       (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))