From: Andreas Schwab <schwab@suse.de>
Date: Wed, 29 Apr 1998 09:33:53 +0000 (+0000)
Subject: (setup_coding_system): Properly check for nil.
X-Git-Tag: emacs-20.3~1238
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f82423d72166a1821b33c0a85c9143de0a9f3d2d;p=emacs.git

(setup_coding_system): Properly check for nil.
---

diff --git a/src/coding.c b/src/coding.c
index 09d0ec68de0..f30942e3227 100644
--- 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);