diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2026-02-23 10:46:00 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2026-02-23 10:46:00 +0100 |
| commit | 8b057d82865a75ba22a499e52b68ad73913e9de0 (patch) | |
| tree | 58d016e690d0e3a3c3fec7851b7c455dbadb0adf | |
| parent | 7af36733cce4898d20776abfd469e5b8317d670b (diff) | |
transient-object: New base class
| -rw-r--r-- | lisp/transient.el | 8 |
1 files 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 |