From 73a0d32eba566a61483db08a197148646ac672e4 Mon Sep 17 00:00:00 2001
From: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date: Fri, 30 Dec 2022 15:03:33 +0100
Subject: Make setopt handle multiple variable/value pairs

Also move it up, closer to Custom-related stuff.
---
 .emacs | 10 ++++++----
 1 file 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.
 
-- 
cgit v1.2.3