(setup_coding_system): Properly check for nil.

diff --git a/src/coding.c b/src/coding.c
index 09d0ec68de090e2a33f66dd41b222b6be89b04c3..f30942e32276a47d2978cbbefd848fa078a0ac67 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -3050,10 +3050,10 @@ setup_coding_system (coding_system, coding)
        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);