comparison lisp/emacs-lisp/bytecomp.el @ 92373:abf955d20dfa

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

92372:0418e6ff8eb2

	  ;; Suppress all warnings, for code not used in Emacs.
	  ;; FIXME: by the time this is executed the `featurep'
	  ;; emacs/xemacs tests have been optimized away, so this is
	  ;; not doing anything useful here, is should probably be
	  ;; moved to a different place.
	  ;; (byte-compile-warnings
	  ;;  (if (member ,condition '((featurep 'xemacs)
	  ;; 			    (not (featurep 'emacs))))
	  ;;      nil byte-compile-warnings))
	  )
     (unwind-protect
	 (progn ,@body)
       ;; Maybe remove the function symbol from the unresolved list.
       (dolist (fbound fbound-list)

92373:abf955d20dfa

	  ;; Suppress all warnings, for code not used in Emacs.
	  ;; FIXME: by the time this is executed the `featurep'
	  ;; emacs/xemacs tests have been optimized away, so this is
	  ;; not doing anything useful here, is should probably be
	  ;; moved to a different place.
	  ;; It is doing _something_. If this is commented out, then
	  ;; compiling a file which requires another file which
	  ;; defines a defsubst that uses (featurep 'xemacs) results
	  ;; 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
	 (progn ,@body)
       ;; Maybe remove the function symbol from the unresolved list.
       (dolist (fbound fbound-list)