branch: externals/transient
commit 270eff1c7cc910dfe9882e97df608627028eaa40
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Fix redisplay when popup navigation is enabled
---
lisp/transient.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 8017afefce..6006e1c03d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1694,8 +1694,12 @@ of the corresponding object.")
cmd conflict)))
(define-key map kbd cmd))))
(when transient-enable-popup-navigation
- (setq map
- (make-composed-keymap (list map transient-popup-navigation-map))))
+ ;; `transient--make-redisplay-map' maps only over bindings that are
+ ;; directly in the base keymap, so that cannot be a composed keymap.
+ (set-keymap-parent
+ map (make-composed-keymap
+ (keymap-parent map)
+ transient-popup-navigation-map)))
map))
(defun transient--make-predicate-map ()
