From 7828bd9b3a516cb50231fafcbaea3598dd6a435a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 12 Mar 2021 12:54:51 -0600
Subject: Return a value from `acdw/set'

---
 lisp/acdw.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lisp/acdw.el')

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
 
-- 
cgit 1.4.1-21-gabe81