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

diff --git a/lisp/widget.el b/lisp/widget.el
index a0103d9..6f00faa 100644
--- a/lisp/widget.el
+++ b/lisp/widget.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
 
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
-;; Maintainer: Hrvoje Niksic <hniksic@srce.hr>
+;; Maintainer: Hrvoje Niksic <hniksic@xemacs.org>
 ;; Keywords: help, extensions, faces, hypermedia, dumped
 ;; Version: 1.9960-x
 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
@@ -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.