Make setopt handle multiple variable/value pairs

Also move it up, closer to Custom-related stuff.

1 files changed, 6 insertions, 4 deletions

diff --git a/.emacs b/.emacs
index 1604dd5..8fe48cd 100644
--- a/.emacs
+++ b/.emacs
@@ -16,6 +16,12 @@
 (setq custom-file "~/.emacs-custom.el")
 (load custom-file)
 
+(if (fboundp 'setopt)
+    (defalias 'my/setopt 'setopt)
+  (defmacro my/setopt (&rest pairs)
+    (while pairs
+      (customize-set-variable (pop pairs) (pop pairs)))))
+
 ;; Some list variables I don't set via Custom.  I can't tell Custom
 ;; "add this element, take those two away": I need to "set in stone"
 ;; an exhaustive list that will make me (1) scratch my head a few
@@ -28,10 +34,6 @@
   (declare (indent 1))
   (thread-first
     l (seq-union to-add) (seq-difference to-remove)))
-
-(if (fboundp 'setopt)
-    (defalias 'my/setopt 'setopt)
-  (defalias 'my/setopt 'customize-set-variable))
 
 ;;; Key bindings.