diff --git a/lisp/simple.el b/lisp/simple.el
index 162f6dd89c5..c85e2cdb177 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1663,6 +1663,7 @@ If the value is non-nil and not a number, we wait 2 seconds."
                   ;; Don't show the help message if the binding isn't
                   ;; significantly shorter than the M-x command the user typed.
                   (< len (- max 5))))
+      (input-pending-p)    ;Dummy call to trigger input-processing, bug#23002.
       (let ((candidate (pop candidates)))
         (when (equal name
                        (car-safe (completion-try-completion