branch: externals/transient
commit 8b057d82865a75ba22a499e52b68ad73913e9de0
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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 b0bcf92e49..c97cf77c70 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
