From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 13 Mar 2013 02:19:31 +0000 (-0400)
Subject: * lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't use
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~568^2~21
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7f7cb1aa3beb791d3175e30f1b5e40985cba413;p=emacs.git

* lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Don't use
backquotes for `obsolete'.

Fixes: debbugs:13929
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39bc71e8e13..def47702a73 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-03-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* 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).
 
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 7e1f89871f1..8f0999b2f80 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -79,7 +79,8 @@ The return value of this function is not used."
                    (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'.