1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index ed610c16ee3..57702760fbc 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1738,7 +1738,8 @@ It can find the completion buffer in `standard-output'."
       (with-temp-buffer
         (let ((standard-output (current-buffer))
               (completion-setup-hook nil))
-          (display-completion-list completions common-substring))
+          (with-suppressed-warnings ((callargs display-completion-list))
+            (display-completion-list completions common-substring)))
         (princ (buffer-string)))
 
     (with-current-buffer standard-output