From: Andreas Schwab <schwab@suse.de>
Date: Tue, 14 Apr 1998 12:58:24 +0000 (+0000)
Subject: (Fwrite_region): Fix mixing of Lisp_Object and int.
X-Git-Tag: emacs-20.3~1553
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b266ae04d722c6ee06c62b949f7f3eba49788b14;p=emacs.git

(Fwrite_region): Fix mixing of Lisp_Object and int.
---

diff --git a/src/fileio.c b/src/fileio.c
index 7a8ddff0f37..d49d107b9f4 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4030,7 +4030,7 @@ to the file, instead of any buffer contents, and END is ignored.")
 	       ? XCONS (coding_systems)->cdr
 	       : current_buffer->buffer_file_coding_system);
 	/* Confirm that VAL can surely encode the current region.  */
-	if (Ffboundp (Vselect_safe_coding_system_function))
+	if (!NILP (Ffboundp (Vselect_safe_coding_system_function)))
 	  val = call3 (Vselect_safe_coding_system_function, start, end, val);
       }
     setup_coding_system (Fcheck_coding_system (val), &coding);