From f82423d72166a1821b33c0a85c9143de0a9f3d2d Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 29 Apr 1998 09:33:53 +0000 Subject: [PATCH] (setup_coding_system): Properly check for nil. --- src/coding.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); -- 2.39.2