diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-07-16 18:39:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-07-16 18:39:14 +0000 |
| commit | aaba790fe738e2cc8a44cfcd7a9b2ff4a00d73bc (patch) | |
| tree | f36c41de11e2e2ae91398ea76f1a3f5c983ecdd7 /lisp/emacs-lisp/bytecomp.el | |
| parent | c2ff35d4bf9aabeb12a7d38a54807e5efecd7b32 (diff) | |
| download | emacs-aaba790fe738e2cc8a44cfcd7a9b2ff4a00d73bc.tar.gz | |
(byte-compile-if): Guard the else-clause too.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |