Customized.

1 files changed, 19 insertions, 9 deletions

diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 807b4bd1c50..9a0f5a0cd1e 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -69,17 +69,27 @@ 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.
-
-(defvar backquote-backquote-symbol '\`
-  "*Symbol used to represent a backquote or nested backquote (e.g. `).")
-
-(defvar backquote-unquote-symbol ',
-  "*Symbol used to represent an unquote (e.g. `,') inside a backquote.")
-
-(defvar backquote-splice-symbol ',@
-  "*Symbol used to represent a splice (e.g. `,@') inside a backquote.")
+(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)
 
 ;;;###autoload
 (defmacro backquote (arg)