From: Pavel Janík <Pavel@Janik.cz>
Date: Sat, 22 Dec 2001 13:58:42 +0000 (+0000)
Subject: (wrong_type_argument): Remove mocklisp case.
X-Git-Tag: ttn-vms-21-2-B4~17526
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4bb6871d3dde5ec377917dab8fe70d526bf9c6b;p=emacs.git

(wrong_type_argument): Remove mocklisp case.
---

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)