Mercurial > emacs

comparison src/coding.c @ 72188:6100ca974994

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment change.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Jul 2006 22:03:14 +0000
parents f3bc55b96df5
children af796bc81ff0 858cb33ae39d
comparison
equal deleted inserted replaced
72187:a17769ba1089 72188:6100ca974994
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 /* We use call1 rather than safe_call1
7543 so as to get bug reports about functions called here
7544 which don't handle the current interface. */
7542 val = call1 (val, Flist (nargs, args)); 7545 val = call1 (val, Flist (nargs, args));
7543 if (CONSP (val)) 7546 if (CONSP (val))
7544 return val; 7547 return val;
7545 if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val))) 7548 if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val)))
7546 return Fcons (val, val); 7549 return Fcons (val, val);