From: Robert Pluim <rpluim@gmail.com>
Date: Mon, 22 Aug 2022 12:33:02 +0000 (+0200)
Subject: Use the attributes of frame's monitor for gamegrid
X-Git-Tag: emacs-29.0.90~1893^2~96
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0dd51d8ebf15c66834ba3573794d3d7e1dd34953;p=emacs.git

Use the attributes of frame's monitor for gamegrid

* lisp/play/gamegrid.el (gamegrid-calculate-glyph-size): Use the
monitor where the current frame is displayed rather than the primary
monitor.
---

diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index 3ad42114d01..bdc056e1ddf 100644
--- a/lisp/play/gamegrid.el
+++ b/lisp/play/gamegrid.el
@@ -80,8 +80,12 @@ directory will be used.")
 (defun gamegrid-calculate-glyph-size ()
   "Calculate appropriate glyph size in pixels based on display resolution.
 Return a multiple of 8 no less than 16."
-  (let ((atts (car (display-monitor-attributes-list)))
+  (let (atts
         y-pitch)
+    (dolist (mon (display-monitor-attributes-list))
+      (when-let ((frames (alist-get 'frames mon))
+                 (match (memq (selected-frame) frames)))
+        (setq atts mon)))
     (setq y-pitch (cond
                    (atts
                     (/ (nth 4 (assq 'geometry atts))