From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 20 Nov 2012 17:54:00 +0000 (-0500)
Subject: * lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Fix last change.
X-Git-Tag: emacs-24.3.90~173^2~18^2~41
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3837d988dd8892064c86ee483c6f09b2bacd7604;p=emacs.git

* lisp/emacs-lisp/byte-run.el (defun-declarations-alist): Fix last change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4be61545f7f..edb1a65266e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-11-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/byte-run.el (defun-declarations-alist): Fix last change.
+
 	* subr.el (called-interactively-p-functions): New var.
 	(internal--called-interactively-p--get-frame): New macro.
 	(called-interactively-p, interactive-p): Rewrite in Lisp.
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 06f404d615c..b4582a41d6c 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -88,7 +88,7 @@ The return value of this function is not used."
                      ,(if (eq (car-safe compiler-function) 'lambda)
                           `(lambda ,(append (cadr compiler-function) args)
                              ,@(cddr compiler-function))
-                        #',compiler-function)))))
+                        `#',compiler-function)))))
    (list 'doc-string
          #'(lambda (f _args pos)
              (list 'put (list 'quote f) ''doc-string-elt (list 'quote pos))))