Fix gamegrid.el with high resolution displays

* lisp/play/gamegrid.el (gamegrid-setup-default-font): Clamp
font size at eight.
This commit is contained in:
Po Lu 2023-02-19 19:34:04 +08:00
parent efc46330aa
commit 0aa19e993b

View file

@ -411,7 +411,9 @@ convert to an Emacs image-spec instead")
pixel-size (floor (* resy (/ point-size 72.27)))
point-size (* (/ pixel-size resy) 72.27))
(face-spec-set gamegrid-face
`((t :height ,(floor (* point-size 10))))))))))
;; With some very high resolution displays,
;; point-size floored can be zero.
`((t :height ,(max 8 (floor (* point-size 10)))))))))))
(defun gamegrid-initialize-display ()
(setq gamegrid-display-mode (gamegrid-display-type))