(byte-compile-disable-warning)

(byte-compile-enable-warning): Doc fix.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index e8da5799a3283dda42b0a7e805e3d1b2ebbc437c..c1f547e215dbd8688451c16a4dbac3b7275a194e 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -404,7 +404,9 @@ suppress.  For example, (not mapcar) will suppress warnings about mapcar."
 (defun byte-compile-disable-warning (warning)
   "Change `byte-compile-warnings' to disable WARNING.
 If `byte-compile-warnings' is t, set it to `(not WARNING)'.
-Otherwise, if the first element is `not', add WARNING, else remove it."
+Otherwise, if the first element is `not', add WARNING, else remove it.
+Normally you should let-bind `byte-compile-warnings' before calling this,
+else the global value will be modified."
   (setq byte-compile-warnings
         (cond ((eq byte-compile-warnings t)
                (list 'not warning))
@@ -419,7 +421,9 @@ Otherwise, if the first element is `not', add WARNING, else remove it."
 (defun byte-compile-enable-warning (warning)
   "Change `byte-compile-warnings' to enable WARNING.
 If `byte-compile-warnings' is `t', do nothing.  Otherwise, if the
-first element is `not', remove WARNING, else add it."
+first element is `not', remove WARNING, else add it.
+Normally you should let-bind `byte-compile-warnings' before calling this,
+else the global value will be modified."
   (or (eq byte-compile-warnings t)
       (setq byte-compile-warnings
             (cond ((eq (car byte-compile-warnings) 'not)