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 }