diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-03-10 17:40:55 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-03-10 17:40:55 -0400 |
| commit | 17f323276b7dea5410d8f495015ebd170ef14091 (patch) | |
| tree | 2218bb528ad55d6c0afc992eb8a691d655c08700 /lisp/emacs-lisp | |
| parent | 33f5bc1cbc22e6b6b600f219aab0fdc4f987eec7 (diff) | |
| download | emacs-17f323276b7dea5410d8f495015ebd170ef14091.tar.gz emacs-17f323276b7dea5410d8f495015ebd170ef14091.tar.bz2 emacs-17f323276b7dea5410d8f495015ebd170ef14091.zip | |
* lisp/emacs-lisp/byte-run.el (dont-compile): Declare obsolete.
(with-no-warnings): Use `declare'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 48bcefaee1a..7e1f89871f1 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -378,7 +378,7 @@ obsolete." (defmacro dont-compile (&rest body) "Like `progn', but the body always runs interpreted (not compiled). If you think you need this, you're probably making a mistake somewhere." - (declare (debug t) (indent 0)) + (declare (debug t) (indent 0) (obsolete nil "24.4")) (list 'eval (list 'quote (if (cdr body) (cons 'progn body) (car body))))) @@ -402,9 +402,9 @@ In interpreted code, this is entirely equivalent to `progn'." ;; macroexpansion. (list 'quote (eval (cons 'progn body) lexical-binding))) -(put 'with-no-warnings 'lisp-indent-function 0) (defun with-no-warnings (&rest body) "Like `progn', but prevents compiler warnings in the body." + (declare (indent 0)) ;; The implementation for the interpreter is basically trivial. (car (last body))) |