Mercurial > hg > xemacs-beta
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); }