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

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/03/03 03:40:07

Index: emacs-lisp/bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.232
retrieving revision 2.233
diff -u -b -r2.232 -r2.233
--- emacs-lisp/bytecomp.el      1 Mar 2008 21:11:17 -0000       2.232
+++ emacs-lisp/bytecomp.el      3 Mar 2008 03:40:03 -0000       2.233
@@ -3569,23 +3569,7 @@
          (byte-compile-bound-variables
           (if bound-list
               (append bound-list byte-compile-bound-variables)
-            byte-compile-bound-variables))
-         ;; 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))
-         )
+            byte-compile-bound-variables)))
      (unwind-protect
         (progn ,@body)
        ;; Maybe remove the function symbol from the unresolved list.