(defcustom, defgroup, defface): Don't use backquote.

diff --git a/lisp/custom.el b/lisp/custom.el
index 285723c4180f393ed8d53f52e0a47c71dc4e1ba9..127d96e1af9d0c6afa559b1cccd9a30c8c3ba448 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -193,7 +193,14 @@ The following KEYWORD's are defined:
 
 Read the section about customization in the Emacs Lisp manual for more
 information."
-  `(custom-declare-variable (quote ,symbol) (quote ,value) ,doc ,@args))
+  ;; It is better not to use backquote in this file,
+  ;; because that makes a bootstrapping problem
+  ;; if you need to recompile all the Lisp files using interpreted code.
+  (nconc (list 'custom-declare-variable
+              (list 'quote symbol)
+              (list 'quote value)
+              doc)
+        args))
 
 ;;; The `defface' Macro.
 
@@ -243,7 +250,10 @@ following REQ are defined:
 
 Read the section about customization in the Emacs Lisp manual for more
 information."
-  `(custom-declare-face (quote ,face) ,spec ,doc ,@args))
+  ;; It is better not to use backquote in this file,
+  ;; because that makes a bootstrapping problem
+  ;; if you need to recompile all the Lisp files using interpreted code.
+  (nconc (list 'custom-declare-face (list 'quote face) spec doc) args))
 
 ;;; The `defgroup' Macro.
 
@@ -295,7 +305,10 @@ The following KEYWORD's are defined:
 
 Read the section about customization in the Emacs Lisp manual for more
 information."
-  `(custom-declare-group (quote ,symbol) ,members ,doc ,@args))
+  ;; It is better not to use backquote in this file,
+  ;; because that makes a bootstrapping problem
+  ;; if you need to recompile all the Lisp files using interpreted code.
+  (nconc (list 'custom-declare-group (list 'quote symbol) members doc) args))
 
 (defun custom-add-to-group (group option widget)
   "To existing GROUP add a new OPTION of type WIDGET.