; Make Eshell completion test more robust

diff --git a/test/lisp/eshell/em-cmpl-tests.el b/test/lisp/eshell/em-cmpl-tests.el
index f778816c4e11511172e0fc47e2cbaa83c5a4f26d..6f75084858172ab8af91cb75d9b54bcdcfe57211 100644 (file)
--- a/test/lisp/eshell/em-cmpl-tests.el
+++ b/test/lisp/eshell/em-cmpl-tests.el
@@ -183,8 +183,10 @@ ACTUAL and EXPECTED should both be lists of strings."
      (should-not (get-buffer-window "*Completions*"))
      ;; Now try completing again.
      (let ((minibuffer-message-timeout 0)
-           (inhibit-message t))
-       (completion-at-point))
+           (inhibit-message t)
+           (last-command 'completion-at-point)
+           (completion-auto-help t))
+       (call-interactively #'completion-at-point))
      ;; This time, we should display the completions buffer.
      (should (get-buffer-window "*Completions*")))))