From a4bb6871d3dde5ec377917dab8fe70d526bf9c6b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sat, 22 Dec 2001 13:58:42 +0000 Subject: [PATCH] (wrong_type_argument): Remove mocklisp case. --- src/data.c | 9 --------- 1 file changed, 9 deletions(-) diff --git a/src/data.c b/src/data.c index f47167af292..4aea53cc022 100644 --- a/src/data.c +++ b/src/data.c @@ -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) -- 2.39.2