# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1100644624 0
# Node ID 34e39dcb676312420e7d0192a7e2a372003cbd6d
# Parent  10efc827e15c421efc41b9c898843fcdce6b31ed
(set-buffer-file-coding-system): Finish previous change.

diff -r 10efc827e15c -r 34e39dcb6763 lisp/international/mule.el
--- a/lisp/international/mule.el	Tue Nov 16 22:24:48 2004 +0000
+++ b/lisp/international/mule.el	Tue Nov 16 22:37:04 2004 +0000
@@ -1162,7 +1162,8 @@
   ;; `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)