--- a/lisp/simple.el +++ b/lisp/simple.el @@ -1680,7 +1680,7 @@ defun execute-extended-command (prefixarg &optional command-name typed) ((numberp suggest-key-bindings) suggest-key-bindings) (t 2))))) (when (and waited (not (consp unread-command-events))) - (unless (or binding executing-kbd-macro (not (symbolp function)) + (unless (or t binding executing-kbd-macro (not (symbolp function)) (<= (length (symbol-name function)) 2)) ;; There's no binding for CMD. Let's try and find the shortest ;; string to use in M-x.