mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-21 05:00:47 -08:00
Code Issues Projects Releases Wiki Activity

(setup_coding_system): Properly check for nil.

Browse source
This commit is contained in:
Andreas Schwab 1998-04-29 09:33:53 +00:00
parent 28ae27ae28
commit f82423d721
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/coding.c
View file

@ -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);