diff options
| author | Case Duckworth | 2021-03-12 12:54:51 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-03-12 12:54:51 -0600 |
| commit | 7828bd9b3a516cb50231fafcbaea3598dd6a435a (patch) | |
| tree | 9410db22767b19d01c63c7134c7cff691937a74f | |
| parent | Add `acdw/binds' to bind more than one key at once (diff) | |
| download | emacs-7828bd9b3a516cb50231fafcbaea3598dd6a435a.tar.gz emacs-7828bd9b3a516cb50231fafcbaea3598dd6a435a.zip | |
Return a value from `acdw/set'
| -rw-r--r-- | lisp/acdw.el | 6 |
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 | ||
| 119 | ASSIGNMENTS is a list where each element is of the form | 119 | ASSIGNMENTS 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 | ||