* lisp/frame.el (make-frame-on-display): Use x-display-list in completion.

(Bug#29713)

diff --git a/lisp/frame.el b/lisp/frame.el
index 9402c15a56b6b176504f7d12588598fd9faf69b7..fd7e872fb6d7f8c584cb6554fb6ed8f4352e64e0 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -666,10 +666,7 @@ Return nil if we don't know how to interpret DISPLAY."
 The optional argument PARAMETERS specifies additional frame parameters."
   (interactive (list (completing-read
                       (format "Make frame on display: ")
-                      (delete-dups
-                       (mapcar (lambda (frame)
-                                 (frame-parameter frame 'display))
-                               (frame-list))))))
+                      (x-display-list))))
   (make-frame (cons (cons 'display display) parameters)))
 
 (defun make-frame-on-monitor (monitor &optional display parameters)