[Emacs-diffs] /srv/bzr/emacs/trunk r111995: * lisp/emacs-lisp/byte-run.el (dont-compile): Declare obsolete.

[Stefan Monnier]

------------------------------------------------------------
revno: 111995
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2013-03-10 17:40:55 -0400
message:
  * lisp/emacs-lisp/byte-run.el (dont-compile): Declare obsolete.
  (with-no-warnings): Use `declare'.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/byte-run.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-10 21:39:11 +0000
+++ b/lisp/ChangeLog    2013-03-10 21:40:55 +0000
@@ -1,5 +1,8 @@
 2013-03-10  Stefan Monnier  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/emacs-lisp/byte-run.el'
--- a/lisp/emacs-lisp/byte-run.el       2013-02-08 16:17:18 +0000
+++ b/lisp/emacs-lisp/byte-run.el       2013-03-10 21:40:55 +0000
@@ -378,7 +378,7 @@
 (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 @@
   ;; 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)))