Mercurial > emacs
changeset 21703:aea35bf72489
(defcustom, defgroup, defface): Don't use backquote.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 22 Apr 1998 02:46:30 +0000 |
| parents | 05b1a2703a49 |
| children | e2283c4df334 |
| files | lisp/custom.el |
| diffstat | 1 files changed, 16 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/custom.el Wed Apr 22 02:41:08 1998 +0000 +++ b/lisp/custom.el Wed Apr 22 02:46:30 1998 +0000 @@ -193,7 +193,14 @@ Read the section about customization in the Emacs Lisp manual for more information." - `(custom-declare-variable (quote ,symbol) (quote ,value) ,doc ,@args)) + ;; It is better not to use backquote in this file, + ;; because that makes a bootstrapping problem + ;; if you need to recompile all the Lisp files using interpreted code. + (nconc (list 'custom-declare-variable + (list 'quote symbol) + (list 'quote value) + doc) + args)) ;;; The `defface' Macro. @@ -243,7 +250,10 @@ Read the section about customization in the Emacs Lisp manual for more information." - `(custom-declare-face (quote ,face) ,spec ,doc ,@args)) + ;; It is better not to use backquote in this file, + ;; because that makes a bootstrapping problem + ;; if you need to recompile all the Lisp files using interpreted code. + (nconc (list 'custom-declare-face (list 'quote face) spec doc) args)) ;;; The `defgroup' Macro. @@ -295,7 +305,10 @@ Read the section about customization in the Emacs Lisp manual for more information." - `(custom-declare-group (quote ,symbol) ,members ,doc ,@args)) + ;; It is better not to use backquote in this file, + ;; because that makes a bootstrapping problem + ;; if you need to recompile all the Lisp files using interpreted code. + (nconc (list 'custom-declare-group (list 'quote symbol) members doc) args)) (defun custom-add-to-group (group option widget) "To existing GROUP add a new OPTION of type WIDGET.