Source

games / gamegrid.el

Diff from to

File gamegrid.el

 			    (setq max-height height)))))))
 	   (if max-height
 	       (while (and (> (font-height font-spec) max-height)
-			   (setq name (x-find-smaller-font name)))
+			   (setq name
+				 (cond
+				  ((eq window-system 'x)
+				   (x-find-smaller-font name))
+				  ((eq window-system 'mswindows)
+				   (mswindows-find-smaller-font name)))))
 		 (add-spec-to-specifier font-spec name (current-buffer))))))))
 
 (defun gamegrid-initialize-display ()