mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-maybe-guarded): Restore code commented out 2007-11-10.

Browse source
This commit is contained in:
Glenn Morris 2008-03-01 20:07:28 +00:00
parent 94dc593ff4
commit c01e3aa1dd
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/bytecomp.el
View file

@ -3562,10 +3562,16 @@ that suppresses all warnings during execution of BODY."
;; emacs/xemacs tests have been optimized away, so this is ;; emacs/xemacs tests have been optimized away, so this is
;; not doing anything useful here, is should probably be ;; not doing anything useful here, is should probably be
;; moved to a different place. ;; moved to a different place.
;; (byte-compile-warnings ;; It is doing _something_. If this is commented out, then
;; (if (member ,condition '((featurep 'xemacs) ;; compiling a file which requires another file which
;; (not (featurep 'emacs)))) ;; defines a defsubst that uses (featurep 'xemacs) results
;; nil byte-compile-warnings)) ;; in a spurious compilation warning about the xemacs code. Eg:
;; (defsubst foo () (if (featurep 'xemacs) (setq foo t)))
;; where foo is a free variable.
(byte-compile-warnings
(if (member ,condition '((featurep 'xemacs)
(not (featurep 'emacs))))
nil byte-compile-warnings))
) )
(unwind-protect (unwind-protect
(progn ,@body) (progn ,@body)