From de5ffeadde3cf9ac72fbc58f840e0ebfce13abf6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 16 Nov 2004 22:37:04 +0000 Subject: [PATCH] (set-buffer-file-coding-system): Finish previous change. --- lisp/international/mule.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 5477402a9ba..bec20a66df5 100644 --- 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) -- 2.39.2