(set-buffer-file-coding-system): Finish previous change.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 5477402a9baecfeb3883b46fd8654022d076f7fd..bec20a66df5bf10d8fddc9ff3d9b0582a3ef7b7c 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1162,7 +1162,8 @@ just set the variable `buffer-file-coding-system' directly."
   ;; `set-buffer-major-mode-hook' take care of setting the table.
   (if (fboundp 'ucs-set-table-for-input) ; don't lose when building
       (ucs-set-table-for-input))
-  (set-buffer-modified-p t)
+  (unless nomodify
+    (set-buffer-modified-p t))
   (force-mode-line-update))
 
 (defun revert-buffer-with-coding-system (coding-system &optional force)