From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Jul 2005 18:39:14 +0000 (+0000)
Subject: (byte-compile-if): Guard the else-clause too.
X-Git-Tag: emacs-pretest-22.0.90~8084
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=300f994a93cf97aab2be1a7fa0333f8bc02d3475;p=emacs.git

(byte-compile-if): Guard the else-clause too.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 21d7cd001cf..92d594945a3 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3409,7 +3409,8 @@ warnings during execution of BODY."
 	  (byte-compile-form (nth 2 form) for-effect))
 	(byte-compile-goto 'byte-goto donetag)
 	(byte-compile-out-tag elsetag)
-	(byte-compile-body (cdr (cdr (cdr form))) for-effect)
+	(byte-compile-maybe-guarded (list 'not clause)
+	  (byte-compile-body (cdr (cdr (cdr form))) for-effect))
 	(byte-compile-out-tag donetag))))
   (setq for-effect nil))