diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2026-04-15 22:15:18 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2026-04-15 22:15:18 +0200 |
| commit | 2e78a937413a33ac7fea0420041a1e55110f8002 (patch) | |
| tree | f2f7e6a5c003b5a8f31301f143e67b4061e3f7c0 /lisp/transient.el | |
| parent | 79ed918afe0ea185829f9f6e68c8666c1ef31a60 (diff) | |
Restore compatibility with emoji.el from Emacs 29.4
Closes #417
Diffstat (limited to 'lisp/transient.el')
| -rw-r--r-- | lisp/transient.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index c5393a8..25bc8f1 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -1652,7 +1652,12 @@ symbol property.") (transient--set-layout prefix (named-let upgrade ((spec layout)) - (cond ((vectorp spec) + (cond ((and (vectorp spec) + (length= spec 3)) + ;; This format is used by emoji.el from Emacs <= 29.4. + (pcase-let ((`[,class ,args ,children] spec)) + (vector class args (mapcar #'upgrade children)))) + ((vectorp spec) (pcase-let ((`[,level ,class ,args ,children] spec)) (when level (setq args (plist-put args :level level))) |