# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 893755622 0
# Node ID 98f624ae550791aa07a7de5afa1fec3d458a7628
# Parent  c9c52d84d14c4b62493c8ccfb935dd8b2d427dd7
(Fset_process_inherit_coding_system_flag): Fix test for non-nil FLAG.

diff -r c9c52d84d14c -r 98f624ae5507 src/process.c
--- a/src/process.c	Tue Apr 28 09:23:01 1998 +0000
+++ b/src/process.c	Tue Apr 28 09:27:02 1998 +0000
@@ -868,7 +868,7 @@
      register Lisp_Object process, flag;
 {
   CHECK_PROCESS (process, 0);
-  XPROCESS (process)->inherit_coding_system_flag = !Fnull (flag);
+  XPROCESS (process)->inherit_coding_system_flag = !NILP (flag);
   return flag;
 }