diff options
| author | Richard M. Stallman | 2005-07-16 18:39:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-07-16 18:39:14 +0000 |
| commit | 300f994a93cf97aab2be1a7fa0333f8bc02d3475 (patch) | |
| tree | ccae7e5a5080b59a4277614e6a66a04af9e16d31 | |
| parent | 2b632b1668bbf671c84af69db30ac8865ef6d812 (diff) | |
| download | emacs-300f994a93cf97aab2be1a7fa0333f8bc02d3475.tar.gz emacs-300f994a93cf97aab2be1a7fa0333f8bc02d3475.zip | |
(byte-compile-if): Guard the else-clause too.
| -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." | |||
| 3409 | (byte-compile-form (nth 2 form) for-effect)) | 3409 | (byte-compile-form (nth 2 form) for-effect)) |
| 3410 | (byte-compile-goto 'byte-goto donetag) | 3410 | (byte-compile-goto 'byte-goto donetag) |
| 3411 | (byte-compile-out-tag elsetag) | 3411 | (byte-compile-out-tag elsetag) |
| 3412 | (byte-compile-body (cdr (cdr (cdr form))) for-effect) | 3412 | (byte-compile-maybe-guarded (list 'not clause) |
| 3413 | (byte-compile-body (cdr (cdr (cdr form))) for-effect)) | ||
| 3413 | (byte-compile-out-tag donetag)))) | 3414 | (byte-compile-out-tag donetag)))) |
| 3414 | (setq for-effect nil)) | 3415 | (setq for-effect nil)) |
| 3415 | 3416 | ||