(byte-compile-file-form-defvar)

(byte-compile-file-form-define-abbrev-table)
(byte-compile-file-form-custom-declare-variable)
(byte-compile-variable-ref, byte-compile-defvar):
Whether or not a warning is enabled should only affect whether we issue
the warning, not whether or not we collect the relevant data.
Eg warnings can be turned on and off throughout the course of a file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5761bac67241065f3ee2bb0ecdfc9e425b2b50a9..e3cb2bfc0f688a16adea0f5e8bac73d63f181638 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2009-11-03  Glenn Morris  <rgm@gnu.org>
 
+       * emacs-lisp/bytecomp.el (byte-compile-file-form-defvar)
+       (byte-compile-file-form-define-abbrev-table)
+       (byte-compile-file-form-custom-declare-variable)
+       (byte-compile-variable-ref, byte-compile-defvar):
+       Whether or not a warning is enabled should only affect whether we issue
+       the warning, not whether or not we collect the relevant data.
+       Eg warnings can be turned on and off throughout the course of a file.
+
        * eshell/esh-mode.el (ansi-color-apply-on-region): Autoload it...
        (eshell-handle-ansi-color): ... Rather than requiring ansi-color.
 

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 43a421ca9e60ec1463f222d977ade080982e98f2..1ad78086edabef94239b991bba88e99f0ecf4925 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2313,10 +2313,9 @@ list that represents a doc string reference.
       ;; Since there is no doc string, we can compile this as a normal form,
       ;; and not do a file-boundary.
       (byte-compile-keep-pending form)
-    (when (byte-compile-warning-enabled-p 'free-vars)
-      (push (nth 1 form) byte-compile-bound-variables)
-      (if (eq (car form) 'defconst)
-         (push (nth 1 form) byte-compile-const-variables)))
+    (push (nth 1 form) byte-compile-bound-variables)
+    (if (eq (car form) 'defconst)
+       (push (nth 1 form) byte-compile-const-variables))
     (cond ((consp (nth 2 form))
           (setq form (copy-sequence form))
           (setcar (cdr (cdr form))
@@ -2325,9 +2324,8 @@ list that represents a doc string reference.
 
 (put 'define-abbrev-table 'byte-hunk-handler 'byte-compile-file-form-define-abbrev-table)
 (defun byte-compile-file-form-define-abbrev-table (form)
-  (when (and (byte-compile-warning-enabled-p 'free-vars)
-             (eq 'quote (car-safe (car-safe (cdr form)))))
-    (push (car-safe (cdr (cadr form))) byte-compile-bound-variables))
+  (if (eq 'quote (car-safe (car-safe (cdr form))))
+      (push (car-safe (cdr (cadr form))) byte-compile-bound-variables))
   (byte-compile-keep-pending form))
 
 (put 'custom-declare-variable 'byte-hunk-handler
@@ -2335,8 +2333,7 @@ list that represents a doc string reference.
 (defun byte-compile-file-form-custom-declare-variable (form)
   (when (byte-compile-warning-enabled-p 'callargs)
     (byte-compile-nogroup-warn form))
-  (when (byte-compile-warning-enabled-p 'free-vars)
-    (push (nth 1 (nth 1 form)) byte-compile-bound-variables))
+  (push (nth 1 (nth 1 form)) byte-compile-bound-variables)
   ;; Don't compile the expression because it may be displayed to the user.
   ;; (when (eq (car-safe (nth 2 form)) 'quote)
   ;;   ;; (nth 2 form) is meant to evaluate to an expression, so if we have the
@@ -3025,22 +3022,22 @@ That command is designed for interactive use only" bytecomp-fn))
     (and (get bytecomp-var 'byte-obsolete-variable)
         (not (memq bytecomp-var byte-compile-not-obsolete-vars))
         (byte-compile-warn-obsolete bytecomp-var))
-    (if (byte-compile-warning-enabled-p 'free-vars)
-       (if (eq base-op 'byte-varbind)
-           (push bytecomp-var byte-compile-bound-variables)
-         (or (boundp bytecomp-var)
-             (memq bytecomp-var byte-compile-bound-variables)
-             (if (eq base-op 'byte-varset)
-                 (or (memq bytecomp-var byte-compile-free-assignments)
-                     (progn
-                       (byte-compile-warn "assignment to free variable `%s'"
-                                          bytecomp-var)
-                       (push bytecomp-var byte-compile-free-assignments)))
-               (or (memq bytecomp-var byte-compile-free-references)
-                   (progn
-                     (byte-compile-warn "reference to free variable `%s'"
-                                        bytecomp-var)
-                     (push bytecomp-var byte-compile-free-references))))))))
+    (if (eq base-op 'byte-varbind)
+       (push bytecomp-var byte-compile-bound-variables)
+      (or (not (byte-compile-warning-enabled-p 'free-vars))
+         (boundp bytecomp-var)
+         (memq bytecomp-var byte-compile-bound-variables)
+         (if (eq base-op 'byte-varset)
+             (or (memq bytecomp-var byte-compile-free-assignments)
+                 (progn
+                   (byte-compile-warn "assignment to free variable `%s'"
+                                      bytecomp-var)
+                   (push bytecomp-var byte-compile-free-assignments)))
+           (or (memq bytecomp-var byte-compile-free-references)
+               (progn
+                 (byte-compile-warn "reference to free variable `%s'"
+                                    bytecomp-var)
+                 (push bytecomp-var byte-compile-free-references)))))))
   (let ((tmp (assq bytecomp-var byte-compile-variables)))
     (unless tmp
       (setq tmp (list bytecomp-var))
@@ -4015,10 +4012,9 @@ that suppresses all warnings during execution of BODY."
         (if (= 1 ncall) "" "s")
         (if (< ncall 2) "requires" "accepts only")
         "2-3")))
-    (when (byte-compile-warning-enabled-p 'free-vars)
-      (push var byte-compile-bound-variables)
-      (if (eq fun 'defconst)
-         (push var byte-compile-const-variables)))
+    (push var byte-compile-bound-variables)
+    (if (eq fun 'defconst)
+       (push var byte-compile-const-variables))
     (byte-compile-body-do-effect
      (list
       ;; Put the defined variable in this library's load-history entry