Commit ded3c8de authored by Juri Linkov's avatar Juri Linkov
Browse files

* lisp/frame.el (frame-monitor-attributes): Fall back to the last monitor

when frames monitor attributes is still uninitialized.  (Bug#34680)
parent 2c541d84
Pipeline #1023 failed with stage
in 60 minutes and 1 second
......@@ -1696,7 +1696,10 @@ keys and their meanings."
(or frame (setq frame (selected-frame)))
(cl-loop for attributes in (display-monitor-attributes-list frame)
for frames = (cdr (assq 'frames attributes))
if (memq frame frames) return attributes))
if (memq frame frames) return attributes
;; On broken frames monitor attributes,
;; fall back to the last monitor.
finally return attributes))
(defun frame-monitor-attribute (attribute &optional frame x y)
"Return the value of ATTRIBUTE on FRAME's monitor.
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