(setup_coding_system): Properly check for nil.

f82423d7 · Andreas Schwab · 28ae27ae · f82423d7
Commit f82423d7 authored Apr 29, 1998 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/coding.c src/coding.c +2 -2

No files found.
--- 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);