summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--CHANGELOG3
-rw-r--r--lisp/transient.el5
2 files changed, 6 insertions, 2 deletions
diff --git a/CHANGELOG b/CHANGELOG
index 454ac36..63b2b1e 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -18,6 +18,9 @@ Bug fixes:
~transient-current-*~ variables were not immediately reset to
~nil~. #323
+- Key sequences with three or more events broke
+ ~transient-suffix-object~. #324
+
* v0.7.7 2024-10-04
Bug fix:
diff --git a/lisp/transient.el b/lisp/transient.el
index 0575dc7..cb4243d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2019,8 +2019,9 @@ of the corresponding object."
(pcase this-command
('transient-update
(setq transient--showp t)
- (setq unread-command-events
- (listify-key-sequence (this-single-command-raw-keys))))
+ (let ((keys (listify-key-sequence (this-single-command-raw-keys))))
+ (setq unread-command-events (mapcar (lambda (key) (cons t key)) keys))
+ keys))
('transient-quit-seq
(setq unread-command-events
(butlast (listify-key-sequence