emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el


From: Richard M . Stallman
Subject: [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el
Date: Sat, 16 Jul 2005 14:39:14 -0400

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))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]