]> code.delx.au - gnu-emacs/blobdiff - src/data.c
(x_draw_image_foreground, x_draw_image_foreground_1):
[gnu-emacs] / src / data.c
index f47167af2920d13f8f1fe59b14aeecb28d680e25..4aea53cc022569f867e7fd9ca9582268adca4143 100644 (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)