diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-27 19:47:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-27 19:47:31 +0000 |
| commit | dea85c7a71dfd287db0b9f10be7daa1b308e4449 (patch) | |
| tree | 4f8e2f939911a6f15de69114918baf1319f1b33d /lisp/widget.el | |
| parent | 7990d02a2ddaebd3d3c4131129b61121d3397e1b (diff) | |
| download | emacs-dea85c7a71dfd287db0b9f10be7daa1b308e4449.tar.gz | |
(define-widget-keywords): Don't use backquote.
Diffstat (limited to 'lisp/widget.el')
| -rw-r--r-- | lisp/widget.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/widget.el b/lisp/widget.el index aa35a00f4b0..10af457a97c 100644 --- a/lisp/widget.el +++ b/lisp/widget.el @@ -36,13 +36,14 @@ (eval-when-compile (require 'cl)) (defmacro define-widget-keywords (&rest keys) - (` - (eval-and-compile - (let ((keywords (quote (, keys)))) - (while keywords - (or (boundp (car keywords)) - (set (car keywords) (car keywords))) - (setq keywords (cdr keywords))))))) + ;; Don't use backquote, since that makes trouble trying to + ;; re-bootstrap from just the .el files. + (list 'eval-and-compile + (list 'let (list (list 'keywords (list 'quote keys))) + (list 'while 'keywords + (list 'or (list 'boundp (list 'car 'keywords)) + (list 'set (list 'car 'keywords) (list 'car 'keywords))) + (list 'setq 'keywords (list 'cdr 'keywords)))))) (define-widget-keywords :documentation-indent :complete-function :complete :button-overlay |