# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1237361092 0
# Node ID d4c7733c759505c2424efb72cbb206747d7e2c3e
# Parent  4f4d15cedda45e876a9ba64092572b25d71e3a36
(after-insert-file-set-coding): Set
buffer-file-coding-system directly without calling
set-buffer-file-coding-system.

diff -r 4f4d15cedda4 -r d4c7733c7595 lisp/international/mule.el
--- a/lisp/international/mule.el	Wed Mar 18 04:01:15 2009 +0000
+++ b/lisp/international/mule.el	Wed Mar 18 07:24:52 2009 +0000
@@ -1868,12 +1868,8 @@
   (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