procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Karl Heuer 1997-04-10 21:53:28 +00:00
parent 8c7d9baf9f
commit efee68610e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/coding.c
View file

@ -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)));
}