From: Kenichi Handa <handa@m17n.org>
Date: Mon, 12 Jun 2000 00:04:43 +0000 (+0000)
Subject: (set-buffer-file-coding-system): If CODING-SYSTEM is nil, set
X-Git-Tag: emacs-pretest-21.0.90~3388
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36d455c43b9a6d83348488a0a67685e902dd0fab;p=emacs.git

(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 92c29fc78f1..16e4c7e9ed8 100644
--- 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))