From 8b057d82865a75ba22a499e52b68ad73913e9de0 Mon Sep 17 00:00:00 2001
From: Jonas Bernoulli <jonas@bernoul.li>
Date: Mon, 23 Feb 2026 10:46:00 +0100
Subject: transient-object: New base class

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

diff --git a/lisp/transient.el b/lisp/transient.el
index b0bcf92..c97cf77 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -829,9 +829,13 @@ If `transient-save-history' is nil, then do nothing."
   (add-hook 'kill-emacs-hook #'transient-maybe-save-history))
 
 ;;; Classes
+;;;; Base
+
+(defclass transient-object () () :abstract t)
+
 ;;;; Prefix
 
-(defclass transient-prefix ()
+(defclass transient-prefix (transient-object)
   ((prototype   :initarg :prototype)
    (command     :initarg :command)
    (level       :initarg :level)
@@ -871,7 +875,7 @@ the prototype is stored in the clone's `prototype' slot.")
 
 ;;;; Suffix
 
-(defclass transient-child ()
+(defclass transient-child (transient-object)
   ((parent
     :initarg :parent
     :initform nil
-- 
cgit v1.0