From 8873c300b2cf8c648278210205c1d3234e387a30 Mon Sep 17 00:00:00 2001
From: Jonas Bernoulli <jonas@bernoul.li>
Date: Tue, 8 Oct 2024 20:24:31 +0200
Subject: [PATCH] transient--parse-group: Catch keyword with no value

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

diff --git a/lisp/transient.el b/lisp/transient.el
index 95c6a94..0d292df 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1138,8 +1138,8 @@ commands are aliases for."
       (when (stringp car)
         (setq args (plist-put args :description pop)))
       (while (keywordp car)
-        (let ((key pop)
-              (val pop))
+        (let* ((key pop)
+               (val (if spec pop (error "No value for `%s'" key))))
           (cond ((eq key :class)
                  (setq class (macroexp-quote val)))
                 ((or (symbolp val)