# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893213190 0
# Node ID aea35bf724899271ec7c9f00cb74ef4086112657
# Parent  05b1a2703a49b15032706f06edc84590cf55135e
(defcustom, defgroup, defface): Don't use backquote.

diff -r 05b1a2703a49 -r aea35bf72489 lisp/custom.el
--- a/lisp/custom.el	Wed Apr 22 02:41:08 1998 +0000
+++ b/lisp/custom.el	Wed Apr 22 02:46:30 1998 +0000
@@ -193,7 +193,14 @@
 
 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 @@
 
 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 @@
 
 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.