Mercurial > emacs
comparison src/coding.c @ 90573:858cb33ae39d
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 357-381)
- Merge from gnus--rel--5.10
- Update from CVS
- Merge from erc--emacs--21
* gnus--rel--5.10 (patch 116-122)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-98
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 03 Aug 2006 11:45:23 +0000 |
| parents | 8a8e69664178 6100ca974994 |
| children | fe721cfad011 |
comparison
equal
deleted
inserted
replaced
| 90572:ab9b8d043c39 | 90573:858cb33ae39d |
|---|---|
| 8388 return Qnil; | 8388 return Qnil; |
| 8389 if (! NILP (Fcoding_system_p (val))) | 8389 if (! NILP (Fcoding_system_p (val))) |
| 8390 return Fcons (val, val); | 8390 return Fcons (val, val); |
| 8391 if (! NILP (Ffboundp (val))) | 8391 if (! NILP (Ffboundp (val))) |
| 8392 { | 8392 { |
| 8393 val = safe_call1 (val, Flist (nargs, args)); | 8393 /* We use call1 rather than safe_call1 |
| 8394 so as to get bug reports about functions called here | |
| 8395 which don't handle the current interface. */ | |
| 8396 val = call1 (val, Flist (nargs, args)); | |
| 8394 if (CONSP (val)) | 8397 if (CONSP (val)) |
| 8395 return val; | 8398 return val; |
| 8396 if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val))) | 8399 if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val))) |
| 8397 return Fcons (val, val); | 8400 return Fcons (val, val); |
| 8398 } | 8401 } |
