comparison src/coding.c @ 17368:265aa4625114

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

17367:ac4db12935d7

      if (CONSP (elt)
	  && ((STRINGP (target)
	       && 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)
		? val
		: ((SYMBOLP (val) && Fboundp (val)
		    ? call2 (val, Flist (nargs, args))
		    : Qnil)));
    }
  return Qnil;
}

17368:265aa4625114

      if (CONSP (elt)
	  && ((STRINGP (target)
	       && STRINGP (XCONS (elt)->car)
	       && fast_string_match (XCONS (elt)->car, target) >= 0)
	      || (INTEGERP (target) && EQ (target, XCONS (elt)->car))))
	return (val = XCONS (elt)->cdr, CONSP (val)
		? val
		: ((SYMBOLP (val) && !NILP (Fboundp (val))
		    ? call2 (val, Flist (nargs, args))
		    : Qnil)));
    }
  return Qnil;
}