(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)