[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4da44cd: * lisp/frame.el (make-frame-on-monitor): A
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] master 4da44cd: * lisp/frame.el (make-frame-on-monitor): Add default value. (Bug#34516) |
Date: |
Wed, 27 Mar 2019 17:46:46 -0400 (EDT) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 4da44cd: * lisp/frame.el (make-frame-on-monitor): Add default value. (Bug#34516),
Juri Linkov <=