Mercurial > emacs
comparison src/coding.c @ 72180:f3bc55b96df5
(Ffind_operation_coding_system): Revert the change from 2006-05-29.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 29 Jul 2006 10:59:50 +0000 |
| parents | eaa3c19b94d2 |
| children | 6100ca974994 |
comparison
equal
deleted
inserted
replaced
| 72179:e043a6ddf637 | 72180:f3bc55b96df5 |
|---|---|
| 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 = safe_call1 (val, Flist (nargs, args)); | 7542 val = 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 } |
