# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1193725386 0
# Node ID 1b8904c5babf2eebd2fa8d6fe3a6626f772dc8a3
# Parent  7a2e26f2fa7652233950357838b5f08153d60014
(byte-compile-disable-warning)
(byte-compile-enable-warning): Doc fix.

diff -r 7a2e26f2fa76 -r 1b8904c5babf lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Tue Oct 30 06:22:29 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Tue Oct 30 06:23:06 2007 +0000
@@ -404,7 +404,9 @@
 (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 @@
 (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)