diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 797c44ead10..e62968a392d 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3569,23 +3569,7 @@ that suppresses all warnings during execution of BODY." (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. |