Mercurial > emacs
changeset 17368:265aa4625114
(Ffind_coding_system): Don't use Lisp_Object as integer.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 10 Apr 1997 21:53:28 +0000 |
| parents | ac4db12935d7 |
| children | 566b26e1930e |
| files | src/coding.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/coding.c Thu Apr 10 21:42:07 1997 +0000 +++ b/src/coding.c Thu Apr 10 21:53:28 1997 +0000 @@ -3396,9 +3396,9 @@ && STRINGP (XCONS (elt)->car) && fast_string_match (XCONS (elt)->car, target) >= 0) || (INTEGERP (target) && EQ (target, XCONS (elt)->car)))) - return (CONSP (val = XCONS (elt)->cdr) + return (val = XCONS (elt)->cdr, CONSP (val) ? val - : ((SYMBOLP (val) && Fboundp (val) + : ((SYMBOLP (val) && !NILP (Fboundp (val)) ? call2 (val, Flist (nargs, args)) : Qnil))); }