diff lisp/international/mule.el @ 58285:34e39dcb6763

(set-buffer-file-coding-system): Finish previous change.
author Richard M. Stallman <rms@gnu.org>
date Tue, 16 Nov 2004 22:37:04 +0000
parents a8baec933fd4
children 803b2fab7ec1 b637c617432f
line wrap: on
line diff
--- 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)