From e8f3c355cf98d3df5054ad1f277fc053ce65870e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 13 Dec 2002 19:52:46 +0000 Subject: [PATCH] (byte-optimize-form-code-walker): Optimize the remaining part of for-effect and/or expressions. --- lisp/emacs-lisp/byte-opt.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 2e29e467d92..8a44ea020f3 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -467,7 +467,7 @@ (byte-compile-log " all subforms of %s called for effect; deleted" form)) (and backwards - (cons fn (nreverse backwards)))) + (cons fn (nreverse (mapcar 'byte-optimize-form backwards))))) (cons fn (mapcar 'byte-optimize-form (cdr form))))) ((eq fn 'interactive) @@ -1159,6 +1159,8 @@ (put 'featurep 'byte-optimizer 'byte-optimize-featurep) (defun byte-optimize-featurep (form) + ;; Emacs-21's byte-code doesn't run under XEmacs anyway, so we can + ;; safely optimize away this test. (if (equal '((quote xemacs)) (cdr-safe form)) nil form)) -- 2.39.5