# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1012995294 0
# Node ID e1b601e414dd9661d718dc6f35c51eb777487752
# Parent  7541bec297e37ee0273c49b2b2302e0bb32c9556
(pong-height): Don't use height that exceeds the frame height.

diff -r 7541bec297e3 -r e1b601e414dd lisp/play/pong.el
--- a/lisp/play/pong.el	Wed Feb 06 11:34:07 2002 +0000
+++ b/lisp/play/pong.el	Wed Feb 06 11:34:54 2002 +0000
@@ -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))