[Emacs-diffs] /srv/bzr/emacs/trunk r112029: * lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't use

[Stefan Monnier]

------------------------------------------------------------
revno: 112029
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13929
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-03-12 22:19:31 -0400
message:
  * lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't use
  backquotes for `obsolete'.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/byte-run.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-13 02:08:33 +0000
+++ b/lisp/ChangeLog    2013-03-13 02:19:31 +0000
@@ -1,5 +1,8 @@
 2013-03-13  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/byte-run.el (defun-declarations-alist): Don't use
+       backquotes for `obsolete' (bug#13929).
+
        * international/mule.el (find-auto-coding): Include file name in
        obsolescence warning (bug#13922).
 

=== modified file 'lisp/emacs-lisp/byte-run.el'
--- a/lisp/emacs-lisp/byte-run.el       2013-03-10 21:40:55 +0000
+++ b/lisp/emacs-lisp/byte-run.el       2013-03-13 02:19:31 +0000
@@ -79,7 +79,8 @@
                    (list 'quote f) (list 'quote arglist) (list 'quote when))))
    (list 'obsolete
          #'(lambda (f _args new-name when)
-             `(make-obsolete ',f ',new-name ,when)))
+             (list 'make-obsolete
+                   (list 'quote f) (list 'quote new-name) (list 'quote when))))
    (list 'compiler-macro
          #'(lambda (f args compiler-function)
              ;; FIXME: Make it possible to just reuse `args'.