Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4da44cda
Commit
4da44cda
authored
Mar 27, 2019
by
Juri Linkov
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* lisp/frame.el (make-frame-on-monitor): Add default value. (Bug#34516)
parent
3f87676e
Pipeline
#1101
failed with stage
in 51 minutes and 7 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
6 deletions
+10
-6
lisp/frame.el
lisp/frame.el
+10
-6
No files found.
lisp/frame.el
View file @
4da44cda
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment