Mercurial > emacs
diff lisp/emacs-lisp/backquote.el @ 21365:db005054f15d
Customized.
author | Stephen Eglen <stephen@gnu.org> |
---|---|
date | Sun, 05 Apr 1998 18:26:32 +0000 |
parents | bd56cdc4d07b |
children | 069b39c07c8d |
line wrap: on
line diff
--- a/lisp/emacs-lisp/backquote.el Sun Apr 05 17:43:09 1998 +0000 +++ b/lisp/emacs-lisp/backquote.el Sun Apr 05 18:26:32 1998 +0000 @@ -69,17 +69,27 @@ (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. `).") +(defcustom backquote-backquote-symbol '\` + "*Symbol used to represent a backquote or nested backquote (e.g. `)." + :type 'symbol + :group 'backquote) -(defvar backquote-unquote-symbol ', - "*Symbol used to represent an unquote (e.g. `,') inside a backquote.") +(defcustom backquote-unquote-symbol ', + "*Symbol used to represent an unquote (e.g. `,') inside a backquote." + :type 'symbol + :group 'backquote) -(defvar backquote-splice-symbol ',@ - "*Symbol used to represent a splice (e.g. `,@') inside a backquote.") +(defcustom backquote-splice-symbol ',@ + "*Symbol used to represent a splice (e.g. `,@') inside a backquote." + :type 'symbol + :group 'backquote) ;;;###autoload (defmacro backquote (arg)