changeset 102626:d4c7733c7595

(after-insert-file-set-coding): Set buffer-file-coding-system directly without calling set-buffer-file-coding-system.
author Kenichi Handa <handa@m17n.org>
date Wed, 18 Mar 2009 07:24:52 +0000
parents 4f4d15cedda4
children 808068e31116
files lisp/international/mule.el
diffstat 1 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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