X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9d113d9d5846e0a0c34af85f22b8a9cf8ac7c78f..534c20b22f89ffbe99a4d6a1035b74eacc544ee5:/src/data.c

diff --git a/src/data.c b/src/data.c
index f47167af29..4aea53cc02 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)