From 798bd43727b4397d3d4e7e620610a8e3431aa2f4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 30 Oct 2007 06:23:06 +0000 Subject: [PATCH] (byte-compile-disable-warning) (byte-compile-enable-warning): Doc fix. --- lisp/emacs-lisp/bytecomp.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index e8da5799a32..c1f547e215d 100644 --- 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) -- 2.39.2