Skip to content

Commit cb6550d

Browse files
committed
transient--init-suffix: Fix regression on Emacs 28
On newer releases (kbd nil) returns "", but when using Emacs 28 it signals an error. Closes #5376.
1 parent 41b6e06 commit cb6550d

1 file changed

Lines changed: 2 additions & 1 deletion

File tree

lisp/transient.el

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2498,7 +2498,8 @@ value. Otherwise return CHILDREN as is.")
24982498
(pcase-let* ((`(,class . ,args) spec)
24992499
(cmd (plist-get args :command))
25002500
(_ (transient--load-command-if-autoload cmd))
2501-
(key (kbd (plist-get args :key)))
2501+
(key (plist-get args :key))
2502+
(key (and key (kbd key)))
25022503
(proto (and cmd (transient--suffix-prototype cmd)))
25032504
(level (or (alist-get (cons cmd key) levels nil nil #'equal)
25042505
(alist-get cmd levels)

0 commit comments

Comments
 (0)