Mercurial > hg > xemacs-beta
changeset 549:2b0ea82d329f
[xemacs-hg @ 2001-05-21 01:54:03 by martinb]
Only optimize (= x) ==> t if byte-compile-delete-errors is nil.
| author | martinb |
|---|---|
| date | Mon, 21 May 2001 01:54:05 +0000 |
| parents | 0f4bdbb07414 |
| children | 1638aacf421d |
| files | lisp/ChangeLog lisp/bytecomp.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun May 20 21:36:08 2001 +0000 +++ b/lisp/ChangeLog Mon May 21 01:54:05 2001 +0000 @@ -1,3 +1,8 @@ +2001-05-20 Martin Buchholz <martin@xemacs.org> + + * bytecomp.el (byte-compile-arithcompare): + Only optimize (= x) ==> t if byte-compile-delete-errors is nil. + 2001-05-20 Adrian Aichner <adrian@xemacs.org> * buff-menu.el (Buffer-menu-mode): Properly make
--- a/lisp/bytecomp.el Sun May 20 21:36:08 2001 +0000 +++ b/lisp/bytecomp.el Mon May 21 01:54:05 2001 +0000 @@ -3205,7 +3205,9 @@ (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))))