diff options
| author | Richard M. Stallman | 1998-04-27 19:47:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-27 19:47:31 +0000 |
| commit | dea85c7a71dfd287db0b9f10be7daa1b308e4449 (patch) | |
| tree | 4f8e2f939911a6f15de69114918baf1319f1b33d /lisp/widget.el | |
| parent | 7990d02a2ddaebd3d3c4131129b61121d3397e1b (diff) | |
| download | emacs-dea85c7a71dfd287db0b9f10be7daa1b308e4449.tar.gz emacs-dea85c7a71dfd287db0b9f10be7daa1b308e4449.zip | |
(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 @@ | |||
| 36 | (eval-when-compile (require 'cl)) | 36 | (eval-when-compile (require 'cl)) |
| 37 | 37 | ||
| 38 | (defmacro define-widget-keywords (&rest keys) | 38 | (defmacro define-widget-keywords (&rest keys) |
| 39 | (` | 39 | ;; Don't use backquote, since that makes trouble trying to |
| 40 | (eval-and-compile | 40 | ;; re-bootstrap from just the .el files. |
| 41 | (let ((keywords (quote (, keys)))) | 41 | (list 'eval-and-compile |
| 42 | (while keywords | 42 | (list 'let (list (list 'keywords (list 'quote keys))) |
| 43 | (or (boundp (car keywords)) | 43 | (list 'while 'keywords |
| 44 | (set (car keywords) (car keywords))) | 44 | (list 'or (list 'boundp (list 'car 'keywords)) |
| 45 | (setq keywords (cdr keywords))))))) | 45 | (list 'set (list 'car 'keywords) (list 'car 'keywords))) |
| 46 | (list 'setq 'keywords (list 'cdr 'keywords)))))) | ||
| 46 | 47 | ||
| 47 | (define-widget-keywords :documentation-indent | 48 | (define-widget-keywords :documentation-indent |
| 48 | :complete-function :complete :button-overlay | 49 | :complete-function :complete :button-overlay |