From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 10 Apr 1997 21:53:28 +0000 (+0000)
Subject: (Ffind_coding_system): Don't use Lisp_Object as integer.
X-Git-Tag: emacs-20.1~2577
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efee68610e4877c5fd97c200ce748e502a864d50;p=emacs.git

(Ffind_coding_system): Don't use Lisp_Object as integer.
---

diff --git a/src/coding.c b/src/coding.c
index 7884879478c..33bf0084674 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -3396,9 +3396,9 @@ which is a list of all the arguments given to `find-coding-system'.")
 	       && 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)));
     }