From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 20 Jan 2024 12:27:08 +0000 (+0100)
Subject: ; Make Eshell completion test more robust
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=545d96a4b16fd2954130826b0248ac105887e415;p=emacs.git

; 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 f778816c4e1..6f750848581 100644
--- 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*")))))