From d7c0adec0a15fee33b62a2449254ef058bfb6c37 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 22 Apr 1998 02:46:30 +0000 Subject: [PATCH] (defcustom, defgroup, defface): Don't use backquote. --- lisp/custom.el | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/lisp/custom.el b/lisp/custom.el index 285723c4180..127d96e1af9 100644 --- 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. -- 2.39.2