mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 12:26:15 +00:00
Code Issues Releases Activity

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

Browse Source 
when frames monitor attributes is still uninitialized.  (Bug#34680)
This commit is contained in:
Juri Linkov 2019-03-19 23:43:18 +02:00
parent 2c541d8478
commit ded3c8de80
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/frame.el
View File

@ -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.