Mercurial > emacs
comparison src/coding.c @ 72188:6100ca974994
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); |