From 5ea2642ac64bf66a59962e542f5c91d4de03dc36 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 6 Feb 2002 11:55:02 +0000 Subject: [PATCH] (pong-height): Don't use height that exceeds the frame height. --- lisp/ChangeLog | 11 +++++++++++ lisp/play/pong.el | 2 +- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e204a9d2536..2a0d095c005 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2002-02-06 Eli Zaretskii + + * play/pong.el (pong-height): Don't use height that exceeds the + frame height. + + * play/gamegrid.el (gamegrid-display-type): Treat any + color-capable display as color-x, if display-color-p is fboundp. + (gamegrid-make-color-x-face): Don't call gamegrid-color twice. + (gamegrid-make-color-tty-face): Use the value of color, not the + symbol itself. Don't call gamegrid-color. + 2002-02-05 Eli Zaretskii * gud.el (gud-refresh): Call recenter only after we are sure we diff --git a/lisp/play/pong.el b/lisp/play/pong.el index 2ba51efd1f2..dbacf176ff3 100644 --- a/lisp/play/pong.el +++ b/lisp/play/pong.el @@ -49,7 +49,7 @@ :group 'pong :type '(integer)) -(defcustom pong-height 30 +(defcustom pong-height (min 30 (- (frame-height) 6)) "*Height of the playfield." :group 'pong :type '(integer)) -- 2.39.5