mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-19 04:21:45 -07:00
Code Issues Projects Releases Wiki Activity

(wrong_type_argument): Remove mocklisp case.

Browse source
This commit is contained in:
Pavel Janík 2001-12-22 13:58:42 +00:00
parent 39cf8566cd
commit a4bb6871d3
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/data.c
View file

@ -114,15 +114,6 @@ wrong_type_argument (predicate, value)
register Lisp_Object tem;
do
{
if (!EQ (Vmocklisp_arguments, Qt))
{
if (STRINGP (value) &&
(EQ (predicate, Qintegerp) || EQ (predicate, Qinteger_or_marker_p)))
return Fstring_to_number (value, Qnil);
if (INTEGERP (value) && EQ (predicate, Qstringp))
return Fnumber_to_string (value);
}
/* If VALUE is not even a valid Lisp object, abort here
where we can get a backtrace showing where it came from. */
if ((unsigned int) XGCTYPE (value) >= Lisp_Type_Limit)