Remove inappropriate customization (allowing custom.el to use

backquote).

1 files changed, 8 insertions, 19 deletions

diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 9a0f5a0cd1e..9b7e7a95fb3 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -69,27 +69,16 @@ For example (backquote-list* 'a 'b 'c) => (a b . c)"
 
 (defalias 'backquote-list* (symbol-function 'backquote-list*-macro))
 
-(defgroup backquote nil
-  "Implement the ` Lisp construct."
-  :prefix "backquote-"
-  :group 'lisp)
-
 ;; A few advertised variables that control which symbols are used
 ;; to represent the backquote, unquote, and splice operations.
-(defcustom backquote-backquote-symbol '\`
-  "*Symbol used to represent a backquote or nested backquote (e.g. `)."
-  :type 'symbol
-  :group 'backquote)
-
-(defcustom backquote-unquote-symbol ',
-  "*Symbol used to represent an unquote (e.g. `,') inside a backquote."
-  :type 'symbol
-  :group 'backquote)
-
-(defcustom backquote-splice-symbol ',@
-  "*Symbol used to represent a splice (e.g. `,@') inside a backquote."
-  :type 'symbol
-  :group 'backquote)
+(defconst backquote-backquote-symbol '\`
+  "*Symbol used to represent a backquote or nested backquote.")
+
+(defconst backquote-unquote-symbol ',
+  "*Symbol used to represent an unquote inside a backquote.")
+
+(defconst backquote-splice-symbol ',@
+  "*Symbol used to represent a splice inside a backquote.")
 
 ;;;###autoload
 (defmacro backquote (arg)