diff src/data.c @ 175:2d532a89d707 r20-3b14

Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 8eaf7971accc
children 9ad43877534d
line wrap: on
line diff
--- a/src/data.c	Mon Aug 13 09:49:11 2007 +0200
+++ b/src/data.c	Mon Aug 13 09:50:14 2007 +0200
@@ -89,26 +89,6 @@
       && (debug_issue_ebola_notices >= 2
 	  || XREALINT (obj1) == XREALINT (obj2)))
     {
-#if 0
-/*#ifndef LRECORD_SYMBOL*/
-      struct backtrace *bt = backtrace_list;
-      char *p;
-      /* Continuing the joke by printing `Ebola warning!!!' confuses */
-      /* too many people.  The message must be printed because Emacs used */
-      /* to work differently for two decades. */
-      /* temporary hack that will probably be around too long -slb */
-      if (XTYPE(*bt->function) == Lisp_Symbol)
-	{
-	  p = (XSYMBOL(*bt->function)->name)->_data;
-	  if (!strcmp(p, "byte-compile-constant") ||
-	      !strcmp(p, "byte-compile-constants-vector") ||
-	      !strcmp(p, "byte-optimize-minus") ||
-	      !strcmp(p, "byte-optimize-plus") ||
-	      !strcmp(p, "byte-decompile-bytecode-1") ||
-	      !strcmp(p, "byte-optimize-logmumble") ||
-	      !strcmp(p, "byte-compile-push-constant")) goto sc;
-	}
-#endif
       stderr_out("Comparison between integer and character is constant nil (");
       Fprinc (obj1, Qexternal_debugging_output);
       stderr_out (" and ");
@@ -116,7 +96,6 @@
       stderr_out (")\n");
       debug_short_backtrace (debug_ebola_backtrace_length);
     }
-sc:
   return EQ (obj1, obj2);
 }