* lisp/subr.el (set-transient-map): Don't wait for some "nested"

transient-map to finish if we're only supposed to be active for
the next command.

Fixes: debbugs:17642

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d09caba9a747f63f14891bce49203fbc1872374..20257f089d9a1a5e180e69cb2a95d3fe9f5a581a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-05-31  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * subr.el (set-transient-map): Don't wait for some "nested"
+       transient-map to finish if we're only supposed to be active for
+       the next command (bug#17642).
+
 2014-05-31  Leo Liu  <sdl.web@gmail.com>
 
        * emacs-lisp/gv.el (window-buffer, window-display-table)

diff --git a/lisp/subr.el b/lisp/subr.el
index 4fba469868f88b0860db4703a470f00ef7e741a2..c8dcfc8df97e330e299db7ecffc3523725329e05 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4310,6 +4310,7 @@ lookup sequence then continues."
           (lambda ()
             (with-demoted-errors "set-transient-map PCH: %S"
               (unless (cond
+                       ((null keep-pred) nil)
                        ((not (eq map (cadr overriding-terminal-local-map)))
                         ;; There's presumably some other transient-map in
                         ;; effect.  Wait for that one to terminate before we
@@ -4322,7 +4323,6 @@ lookup sequence then continues."
                         ;; C-u and that 1 exits isearch whereas it doesn't
                         ;; exit C-u.
                         t)
-                       ((null keep-pred) nil)
                        ((eq t keep-pred)
                         (eq this-command
                             (lookup-key map (this-command-keys-vector))))