(wid-edit): Fix compilation.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ea63341..3db3ba6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2004-05-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * assistant.el (wid-edit): Fix compilation.
+
        * gnus-util.el (gnus-set-file-modes): Just ignore errors. 
 
 2004-05-23  Paul Stodghill  <stodghil@cs.cornell.edu>

diff --git a/lisp/assistant.el b/lisp/assistant.el
index 84f28af..92882bc 100644 (file)
--- a/lisp/assistant.el
+++ b/lisp/assistant.el
@@ -28,6 +28,9 @@
 (eval-when-compile
   (require 'cl))
 
+(require 'widget)
+(require 'wid-edit)
+
 (defvar assistant-readers
   '(("variable" assistant-variable-reader)
     ("validate" assistant-sexp-reader)
@@ -185,7 +188,8 @@
 
 (defun assistant-get-variable (node variable)
   (let ((variables (assistant-get-list node "variable"))
-       (result nil))
+       (result nil)
+       elem)
     (while (and (setq elem (pop variables))
                (not result))
       (setq elem (cadr elem))
@@ -194,7 +198,8 @@
     result))
     
 (defun assistant-set-variable (node variable value)
-  (let ((variables (assistant-get-list node "variable")))
+  (let ((variables (assistant-get-list node "variable"))
+       elem)
     (while (setq elem (pop variables))
       (setq elem (cadr elem))
       (when (eq (intern variable) (car elem))