(after-insert-file-set-coding): Set

buffer-file-coding-system directly without calling
set-buffer-file-coding-system.

1 files changed, 2 insertions, 6 deletions

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index c281db7d95d..236b48c9bdb 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1868,12 +1868,8 @@ The optional second arg VISIT non-nil means that we are visiting a file."
   (if last-coding-system-used
       (let ((coding-system
              (find-new-buffer-file-coding-system last-coding-system-used)))
-        (when coding-system
-          ;; Tell set-buffer-file-coding-system not to mark the file
-          ;; as modified; we just read it, and it's supposed to be unmodified.
-          ;; Marking it modified would try to lock it, which would
-          ;; check the modtime, and we don't want to do that again now.
-          (set-buffer-file-coding-system coding-system t t))))
+        (if coding-system
+            (setq buffer-file-coding-system coding-system))))
   inserted)
 
 ;; The coding-spec and eol-type of coding-system returned is decided