# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 893842433 0
# Node ID 376ce06ab12db88ce4f152b4136874a1ead7d9da
# Parent  1d93b782b98326ee129b71a8477358c0b1b8b20f
(setup_coding_system): Properly check for nil.

diff -r 1d93b782b983 -r 376ce06ab12d src/coding.c
--- a/src/coding.c	Wed Apr 29 09:23:15 1998 +0000
+++ b/src/coding.c	Wed Apr 29 09:33:53 1998 +0000
@@ -3050,10 +3050,10 @@
 	if (CONSP  (val)
 	    && SYMBOLP (XCONS (val)->car)
 	    && !NILP (decoder = Fget (XCONS (val)->car, Qccl_program_idx))
-	    && (decoder = Fcdr (Faref (Vccl_program_table, decoder)))
+	    && !NILP (decoder = Fcdr (Faref (Vccl_program_table, decoder)))
 	    && SYMBOLP (XCONS (val)->cdr)
 	    && !NILP (encoder = Fget (XCONS (val)->cdr, Qccl_program_idx))
-	    && (encoder = Fcdr (Faref (Vccl_program_table, encoder))))
+	    && !NILP (encoder = Fcdr (Faref (Vccl_program_table, encoder))))
 	  {
 	    setup_ccl_program (&(coding->spec.ccl.decoder), decoder);
 	    setup_ccl_program (&(coding->spec.ccl.encoder), encoder);