Commit 17f32327 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/byte-run.el (dont-compile): Declare obsolete.

(with-no-warnings): Use `declare'.
parent 33f5bc1c
2013-03-10 Stefan Monnier <>
* emacs-lisp/byte-run.el (dont-compile): Declare obsolete.
(with-no-warnings): Use `declare'.
* whitespace.el (whitespace-enable-predicate): New variable.
(whitespace-enable-predicate): Use it.
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment