From 2bd785a208c84e7ae73884d09a1087da52780b4a Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 2 May 2012 22:39:23 -0400
Subject: =?UTF-8?q?*=20lisp/emacs-lisp/bytecomp.el=20(byte-compile-file-fo?=
 =?UTF-8?q?rm-custom-declare-variable):=20Compile=20all=20elements,=20sinc?=
 =?UTF-8?q?e=20cconv.el=20might=20have=20introduced=20:fun-body,=20interna?=
 =?UTF-8?q?l-make-closure,=20and=20friends=20for=20bytecomp=20to=20handle.?=
 =?UTF-8?q?=20*=20lisp/custom.el=20(defcustom):=20Avoid=20((=CE=BB=20..)?=
 =?UTF-8?q?=20..).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes: debbugs:11391
---
 lisp/custom.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/custom.el')

diff --git a/lisp/custom.el b/lisp/custom.el
index 611d5688f30..d0eadcc23ff 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -335,7 +335,7 @@ for more information."
          ;; expression is checked by the byte-compiler, and that
          ;; lexical-binding is obeyed, so quote the expression with
          ;; `lambda' rather than with `quote'.
-         `(list (lambda () ,standard))
+         ``(funcall #',(lambda () ,standard))
        `',standard)
     ,doc
     ,@args))
-- 
cgit v1.2.1