Suppress warning in display-completion-list about itself

* lisp/minibuffer.el (display-completion-list):
`display-completion-list' calls itself with the old, obsolete
callargs, so suppress this warning.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index ed610c16ee365a4a7b288444d3585f1516ffc8e0..57702760fbcfd5eb60bbe50d36cdf59b6168a94f 100644 (file)
--- 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