Skip to content

GitLab

emacs
emacs
Commit f82423d7 authored by Andreas Schwab's avatar Andreas Schwab
Browse files
Options

(setup_coding_system): Properly check for nil.

parent 28ae27ae
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/coding.c
View file @ f82423d7
......@@ -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);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment