Skip to content

GitLab

Commit 4da44cda authored by Juri Linkov's avatar Juri Linkov
Browse files
Options

* 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
    Hide whitespace changes
    Inline Side-by-side
    Showing with 10 additions and 6 deletions
    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))
    ......
    Markdown is supported
    0% or .
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment