Mercurial > emacs
changeset 85780:1b8904c5babf
(byte-compile-disable-warning)
(byte-compile-enable-warning): Doc fix.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 30 Oct 2007 06:23:06 +0000 |
| parents | 7a2e26f2fa76 |
| children | 32324df93013 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)