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 } |