From dea85c7a71dfd287db0b9f10be7daa1b308e4449 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 27 Apr 1998 19:47:31 +0000 Subject: (define-widget-keywords): Don't use backquote. --- lisp/widget.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'lisp/widget.el') 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 -- cgit v1.2.1