[Emacs-diffs] master 48a28f8: execute-extended-command: Skip waiting in more cases

[Dmitry Gutov]

branch: master
commit 48a28f8e389c33029ab4aa3d65445f42ed457e11
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    execute-extended-command: Skip waiting in more cases
    
    * lisp/simple.el (execute-extended-command): Don't wait when
    there's no binding the current command, and the user doesn't want
    to see "shorter" suggestions, or TYPED is nil anyway.
---
 lisp/simple.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index ab4960d..0281464 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1839,9 +1839,11 @@ invoking, give a prefix argument to 
`execute-extended-command'."
             ;; If this command displayed something in the echo area;
             ;; wait a few seconds, then display our suggestion message.
             ;; FIXME: Wait *after* running post-command-hook!
-            ;; FIXME: Don't wait if execute-extended-command--shorter won't
-            ;; find a better answer anyway!
-            (when suggest-key-bindings
+            ;; FIXME: If execute-extended-command--shorter were
+            ;; faster, we could compute the result here first too.
+            (when (and suggest-key-bindings
+                       (or binding
+                           (and extended-command-suggest-shorter typed)))
               (sit-for (cond
                         ((zerop (length (current-message))) 0)
                         ((numberp suggest-key-bindings) suggest-key-bindings)