X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbytecomp.el;h=56eb5323b5bd95ae13bfcdd5433fb833506e0c56;hb=b3678ad5eb09c9c715f686213ac8d8a158380202;hp=adc9d5741c9df7063254fb44a77cffac7cc4ac1e;hpb=d35528ab24dc4894726d0d6d94dadd097ba3bbc6;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el
index adc9d57..56eb532 100644
--- a/lisp/bytecomp.el
+++ b/lisp/bytecomp.el
@@ -3190,7 +3190,9 @@ If FORM is a lambda or a macro, byte-compile it as a function."
 (defun byte-compile-arithcompare (form)
   (case (length (cdr form))
     (0 (byte-compile-subr-wrong-args form "1 or more"))
-    (1 (byte-compile-constant t))
+    (1 (if byte-compile-delete-errors
+	   (byte-compile-constant t)
+	 (byte-compile-normal-call form)))
     (2 (byte-compile-two-args form))
     (t (byte-compile-normal-call form))))