(set-buffer-file-coding-system): If CODING-SYSTEM is nil, set

buffer-file-coding-system to nil unconditionally.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 92c29fc78f18dd7a8ea9b1bf415f27280caecdb1..16e4c7e9ed82d005f2001ef8bdb47721a14ebfce 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -815,7 +815,7 @@ don't want to mark the buffer modified, just set the variable
 `buffer-file-coding-system' directly."
   (interactive "zCoding system for visited file (default, nil): \nP")
   (check-coding-system coding-system)
-  (if (and buffer-file-coding-system (null force))
+  (if (and coding-system buffer-file-coding-system (null force))
       (let ((x (coding-system-eol-type buffer-file-coding-system))
            (y (coding-system-eol-type coding-system)))
        (if (and (numberp x) (>= x 0) (<= x 2) (vectorp y))