From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 Aug 2002 16:34:53 +0000 (+0000)
Subject: (select-safe-coding-system): Check for
X-Git-Tag: ttn-vms-21-2-B4~13755
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=872c0ba8c9cc0c23c75748112142b1f1e1ef88e1;p=emacs.git

(select-safe-coding-system): Check for
non-nil CODING-SYSTEM before warning it disagrees with AUTO-CS.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index c3d3aa8b142..1b59acdf67a 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -766,7 +766,7 @@ one of the following safe coding systems, or edit the buffer:\n")
 			 (goto-char (point-min))
 			 (set-auto-coding (or file buffer-file-name "")
 					  (buffer-size))))))
-	(if (and auto-cs
+	(if (and auto-cs coding-system
 		 ;; Don't barf if writing a compressed file, say.
 		 ;; This check perhaps isn't ideal, but is probably
 		 ;; the best thing to do.