diff options
author | Juri Linkov <juri@linkov.net> | 2019-03-27 23:46:39 +0200 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2019-03-27 23:46:39 +0200 |
commit | 4da44cdaaf792c96164ba60076866a9df4d76002 (patch) | |
tree | a95e727e88359e218563deac7e92b1bc5804c8fd | |
parent | 3f87676e7561c65233e56c6d71a70e371406fcca (diff) | |
download | emacs-4da44cdaaf792c96164ba60076866a9df4d76002.tar.gz |
* lisp/frame.el (make-frame-on-monitor): Add default value. (Bug#34516)
-rw-r--r-- | lisp/frame.el | 16 |
1 files 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)) |