From a04f3650f501ab5a4e72839748e11d70dee0af91 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 18 Mar 2009 07:24:52 +0000 Subject: [PATCH] (after-insert-file-set-coding): Set buffer-file-coding-system directly without calling set-buffer-file-coding-system. --- lisp/international/mule.el | 8 ++------ 1 file 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 -- 2.39.5