Mercurial > emacs

changeset 21788:bbc6e91e6fa1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-widget-keywords): Don't use backquote.
author Richard M. Stallman <rms@gnu.org>
date Mon, 27 Apr 1998 19:47:31 +0000
parents ee3aed578b1d
children c7b93fe649d4
files lisp/widget.el
diffstat 1 files changed, 8 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/widget.el	Mon Apr 27 14:26:43 1998 +0000
+++ b/lisp/widget.el	Mon Apr 27 19:47:31 1998 +0000
@@ -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