summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuri Linkov <juri@linkov.net>2019-07-16 01:09:20 +0300
committerJuri Linkov <juri@linkov.net>2019-07-16 01:09:20 +0300
commit0746a9e275d6318be80dde39d7be72a447200612 (patch)
treefbfd37ef4f37da2918d8a192cafdc0024006a377
parentde8b677a017d3846f178bf8ae7ffc20188179bab (diff)
downloademacs-0746a9e275d6318be80dde39d7be72a447200612.tar.gz
* lisp/frame.el (make-frame-on-display): Use x-display-list in completion.
(Bug#29713)
-rw-r--r--lisp/frame.el5
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index 9402c15a56b..fd7e872fb6d 100644
--- 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)