X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fwidget.el;h=0586999a35d58ada74ded131654a6154ef721875;hb=306eceacfc6fe45817cc9abcb46a4fe629eff699;hp=a0103d9eddb4d58abf106d456caa3eb95838cc82;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/widget.el b/lisp/widget.el
index a0103d9..0586999 100644
--- a/lisp/widget.el
+++ b/lisp/widget.el
@@ -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.