Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.173
emacs/lisp/emacs-lisp/bytecomp.el:2.174
*** emacs/lisp/emacs-lisp/bytecomp.el:2.173 Sat Jul 16 18:27:25 2005
--- emacs/lisp/emacs-lisp/bytecomp.el Sat Jul 16 18:39:14 2005
***************
*** 3409,3415 ****
(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-out-tag donetag))))
(setq for-effect nil))
--- 3409,3416 ----
(byte-compile-form (nth 2 form) for-effect))
(byte-compile-goto 'byte-goto donetag)
(byte-compile-out-tag elsetag)
! (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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
