From 4c5482386b6bdc77aea564798029ce43e2d6cb29 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 8 Jan 2000 15:19:21 +0000 Subject: [PATCH] Remove inappropriate customization (allowing custom.el to use backquote). --- lisp/emacs-lisp/backquote.el | 27 ++++++++------------------- 1 file 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) -- 2.39.5