From 4da44cdaaf792c96164ba60076866a9df4d76002 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 27 Mar 2019 23:46:39 +0200 Subject: [PATCH] * 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 7cfe546ca6a..6cb12473725 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)) -- 2.39.5