Mercurial > hg > xemacs-beta

diff lisp/widget.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 0e522484dd2a
children 74fd4e045ea6
line wrap: on
line diff
--- a/lisp/widget.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/widget.el	Mon Aug 13 11:07:10 2007 +0200
@@ -42,13 +42,12 @@
 
 (defmacro define-widget-keywords (&rest keys)
   "This doesn't do anything in Emacs 20 or XEmacs."
-  (`
-   (eval-and-compile
-    (let ((keywords (quote (, keys))))
-      (while keywords
-	(or (boundp (car keywords))
-           (set (car keywords) (car keywords)))
-       (setq keywords (cdr keywords)))))))
+  `(eval-and-compile
+     (let ((keywords (quote ,keys)))
+       (while keywords
+	 (or (boundp (car keywords))
+	     (set (car keywords) (car keywords)))
+	 (setq keywords (cdr keywords))))))
 
 (defun define-widget (name class doc &rest args)
   "Define a new widget type named NAME from CLASS.