Mercurial > emacs

comparison src/coding.c @ 71039:71e6cab216b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffind_operation_coding_system): Call a function by safe_call1 instead of call1.
author Kenichi Handa <handa@m17n.org>
date Mon, 29 May 2006 00:54:27 +0000
parents 7ea8b1c11d80
children 0c8ac7192244
comparison
equal deleted inserted replaced
71038:50e8561148f4 71039:71e6cab216b1
7537 return Qnil; 7537 return Qnil;
7538 if (! NILP (Fcoding_system_p (val))) 7538 if (! NILP (Fcoding_system_p (val)))
7539 return Fcons (val, val); 7539 return Fcons (val, val);
7540 if (! NILP (Ffboundp (val))) 7540 if (! NILP (Ffboundp (val)))
7541 { 7541 {
7542 val = call1 (val, Flist (nargs, args)); 7542 val = safe_call1 (val, Flist (nargs, args));
7543 if (CONSP (val)) 7543 if (CONSP (val))
7544 return val; 7544 return val;
7545 if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val))) 7545 if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val)))
7546 return Fcons (val, val); 7546 return Fcons (val, val);
7547 } 7547 }