From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 27 Apr 1998 19:47:31 +0000 (+0000)
Subject: (define-widget-keywords): Don't use backquote.
X-Git-Tag: emacs-20.3~1288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dea85c7a71dfd287db0b9f10be7daa1b308e4449;p=emacs.git

(define-widget-keywords): Don't use backquote.
---

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