Mercurial > emacs

comparison src/coding.c @ 21839:376ce06ab12d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup_coding_system): Properly check for nil.
author Andreas Schwab <schwab@suse.de>
date Wed, 29 Apr 1998 09:33:53 +0000
parents 64c815fe1bdc
children 0a3488a71129
comparison
equal deleted inserted replaced
21838:1d93b782b983 21839:376ce06ab12d
3048 Lisp_Object decoder, encoder; 3048 Lisp_Object decoder, encoder;
3049 3049
3050 if (CONSP (val) 3050 if (CONSP (val)
3051 && SYMBOLP (XCONS (val)->car) 3051 && SYMBOLP (XCONS (val)->car)
3052 && !NILP (decoder = Fget (XCONS (val)->car, Qccl_program_idx)) 3052 && !NILP (decoder = Fget (XCONS (val)->car, Qccl_program_idx))
3053 && (decoder = Fcdr (Faref (Vccl_program_table, decoder))) 3053 && !NILP (decoder = Fcdr (Faref (Vccl_program_table, decoder)))
3054 && SYMBOLP (XCONS (val)->cdr) 3054 && SYMBOLP (XCONS (val)->cdr)
3055 && !NILP (encoder = Fget (XCONS (val)->cdr, Qccl_program_idx)) 3055 && !NILP (encoder = Fget (XCONS (val)->cdr, Qccl_program_idx))
3056 && (encoder = Fcdr (Faref (Vccl_program_table, encoder)))) 3056 && !NILP (encoder = Fcdr (Faref (Vccl_program_table, encoder))))
3057 { 3057 {
3058 setup_ccl_program (&(coding->spec.ccl.decoder), decoder); 3058 setup_ccl_program (&(coding->spec.ccl.decoder), decoder);
3059 setup_ccl_program (&(coding->spec.ccl.encoder), encoder); 3059 setup_ccl_program (&(coding->spec.ccl.encoder), encoder);
3060 } 3060 }
3061 else 3061 else