XEmacs 21.2.12

[chise/xemacs-chise.git.1] / lisp / bytecomp.el

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index d8ab789..5340162 100644 (file)
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -432,6 +432,7 @@ on the specbind stack.  The cdr of each cell is an integer bitmask.")
 
 (defvar byte-compile-free-references)
 (defvar byte-compile-free-assignments)
+(defvar debug-issue-ebola-notices)
 
 (defvar byte-compiler-error-flag)
 
@@ -1297,7 +1298,11 @@ otherwise pop it")
        (byte-compile-warnings (if (eq byte-compile-warnings t)
                                   byte-compile-default-warnings
                                 byte-compile-warnings))
-       (byte-compile-file-domain nil))
+       (byte-compile-file-domain nil)
+
+       ;; We reserve the right to compare ANY objects for equality.
+       (debug-issue-ebola-notices -42)
+       )
      (prog1
         (progn ,@body)
        (if (memq 'unused-vars byte-compile-warnings)