summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-03-12 12:54:51 -0600
committerCase Duckworth2021-03-12 12:54:51 -0600
commit7828bd9b3a516cb50231fafcbaea3598dd6a435a (patch)
tree9410db22767b19d01c63c7134c7cff691937a74f /lisp
parentAdd `acdw/binds' to bind more than one key at once (diff)
downloademacs-7828bd9b3a516cb50231fafcbaea3598dd6a435a.tar.gz
emacs-7828bd9b3a516cb50231fafcbaea3598dd6a435a.zip
Return a value from `acdw/set'
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el6
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."
118 118
119ASSIGNMENTS is a list where each element is of the form 119ASSIGNMENTS is a list where each element is of the form
120(VARIABLE VALUE [COMMENT])." 120(VARIABLE VALUE [COMMENT])."
121 (dolist (assignment assignments) 121 (let (setting) ; for return value
122 (dolist (assignment assignments setting)
122 (customize-set-variable (car assignment) 123 (customize-set-variable (car assignment)
123 (cadr assignment) 124 (cadr assignment)
124 (if (and (caddr assignment) 125 (if (and (caddr assignment)
125 (stringp (caddr assignment))) 126 (stringp (caddr assignment)))
126 (caddr assignment) 127 (caddr assignment)
127 "Customized by `acdw/set'.")))) 128 "Customized by `acdw/set'."))
129 (setq setting (car assignment)))))
128 130
129;;; Faces 131;;; Faces
130 132