(gamegrid-add-score-with-update-game-score): Renamed from `gamegrid-add-score'.

[gnu-emacs] / lisp / play / pong.el

diff --git a/lisp/play/pong.el b/lisp/play/pong.el
index c1715bf75d693d75d122b6e2f835bd2123ca37cc..07c72a129a351126b6ce0114a0fd0490264f9bf7 100644 (file)
--- a/lisp/play/pong.el
+++ b/lisp/play/pong.el
@@ -2,7 +2,7 @@
 
 ;; Copyright 1999, 2000, 2001 by Free Software Foundation, Inc.
 
-;; Author: Benjamin Drieu <drieu@bocal.cs.univ-paris8.fr>
+;; Author: Benjamin Drieu <bdrieu@april.org>
 ;; Keywords: games
 
 ;; This file is part of GNU Emacs.
@@ -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))
@@ -156,7 +156,11 @@
      (t ?\+))
     ((color-x color-x)
      (mono-x grid-x))
-    (((glyph color-x) [0.5 0.5 0.5])
+    ;; The colors used to be [0.5 0.5 0.5], but that produces a black
+    ;; color on 8-color tty's, which would make the border invisible.
+    ;; 0.51 produces white on such tty's, and at the same time has
+    ;; almost no effect on X and similar displays.
+    (((glyph color-x) [0.51 0.51 0.51])
      (color-tty pong-border-color))))
 
 (defconst pong-blank   0)
@@ -320,7 +324,6 @@ implementations you move with left/right paddle."
   
   (define-key pong-mode-map pong-pause-key 'pong-pause)
 
-  (make-local-hook 'kill-buffer-hook)
   (add-hook 'kill-buffer-hook 'pong-quit nil t)
 
   ;; Initialization of some variables
@@ -458,3 +461,5 @@ pong-mode keybindings:\\<pong-mode-map>
 
 
 (provide 'pong)
+
+;;; pong.el ends here