# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 892558704 0
# Node ID 48def841655f58c7025118a32e809edeff5b44f5
# Parent  354a7085f1d73f7eff4df3c2b79e2b00bdb93240
(Fwrite_region): Fix mixing of Lisp_Object and int.

diff -r 354a7085f1d7 -r 48def841655f src/fileio.c
--- a/src/fileio.c	Tue Apr 14 12:56:53 1998 +0000
+++ b/src/fileio.c	Tue Apr 14 12:58:24 1998 +0000
@@ -4030,7 +4030,7 @@
 	       ? 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);