diff options
Diffstat (limited to 'lisp/emacs-lisp/backquote.el')
| -rw-r--r-- | lisp/emacs-lisp/backquote.el | 28 |
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) |