1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el
index c9a2d9f..b1843c9 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el

@@ -118,13 +118,15 @@ directory."
 ASSIGNMENTS is a list where each element is of the form
 (VARIABLE VALUE [COMMENT])."
-  (dolist (assignment assignments)
+  (let (setting)                        ; for return value
+  (dolist (assignment assignments setting)
    (customize-set-variable (car assignment)
                            (cadr assignment)
                            (if (and (caddr assignment)
                                     (stringp (caddr assignment)))
                                (caddr assignment)
-                              "Customized by `acdw/set'."))))
+                              "Customized by `acdw/set'."))
+    (setq setting (car assignment)))))
 ;;; Faces