[Emacs-diffs] master 4da44cd: * lisp/frame.el (make-frame-on-monitor): Add default value. (Bug#34516)

[Juri Linkov]

branch: master
commit 4da44cdaaf792c96164ba60076866a9df4d76002
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * lisp/frame.el (make-frame-on-monitor): Add default value.  (Bug#34516)
---
 lisp/frame.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/lisp/frame.el b/lisp/frame.el
index 7cfe546..6cb1247 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -676,12 +676,16 @@ The optional argument PARAMETERS specifies additional 
frame parameters."
   "Make a frame on monitor MONITOR.
 The optional argument DISPLAY can be a display name, and the optional
 argument PARAMETERS specifies additional frame parameters."
-  (interactive (list (completing-read
-                      (format "Make frame on monitor: ")
-                      (or (delq nil (mapcar (lambda (a)
-                                              (cdr (assq 'name a)))
-                                            (display-monitor-attributes-list)))
-                          '("")))))
+  (interactive
+   (list
+    (let* ((default (cdr (assq 'name (frame-monitor-attributes)))))
+      (completing-read
+       (format "Make frame on monitor (default %s): " default)
+       (or (delq nil (mapcar (lambda (a)
+                               (cdr (assq 'name a)))
+                             (display-monitor-attributes-list)))
+           '(""))
+       nil nil nil nil default))))
   (let* ((monitor-workarea
           (catch 'done
             (dolist (a (display-monitor-attributes-list display))