* lisp/subr.el (set-transient-map): Exit for unbound events (bug#24755).

9c1cb8d5 · Stefan Monnier · 9c247d20 · 9c1cb8d5
Commit 9c1cb8d5 authored Oct 26, 2016 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/subr.el lisp/subr.el +4 -2

No files found.
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4507,8 +4507,10 @@ to deactivate this transient map, regardless of KEEP-PRED."
                        ;; exit C-u.
                        t)
                       ((eq t keep-pred)
-                        (eq this-command
-                            (lookup-key map (this-command-keys-vector))))
+                        (let ((mc (lookup-key map (this-command-keys-vector))))
+                          ;; If the key is unbound `this-command` is
+                          ;; nil and so is `mc`.
+                          (and mc (eq this-command mc))))
                       (t (funcall keep-pred)))
                (funcall exitfun)))))
    (add-hook 'pre-command-hook clearfun)