Add 2010 to copyright years.

[bpt/emacs.git] / lisp / play / pong.el

diff --git a/lisp/play/pong.el b/lisp/play/pong.el
index 93181d4..523b837 100644 (file)
--- a/lisp/play/pong.el
+++ b/lisp/play/pong.el
@@ -1,17 +1,17 @@
 ;;; pong.el --- classical implementation of pong
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009, 2010  Free Software Foundation, Inc.
 
 ;; Author: Benjamin Drieu <bdrieu@april.org>
 ;; Keywords: games
 
 ;; This file is part of GNU Emacs.
 
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -19,9 +19,7 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Commentary:
 
@@ -41,67 +39,67 @@
   :group 'games)
 
 (defcustom pong-buffer-name "*Pong*"
-  "*Name of the buffer used to play."
+  "Name of the buffer used to play."
   :group 'pong
   :type '(string))
 
 (defcustom pong-width 50
-  "*Width of the playfield."
+  "Width of the playfield."
   :group 'pong
   :type '(integer))
 
 (defcustom pong-height (min 30 (- (frame-height) 6))
-  "*Height of the playfield."
+  "Height of the playfield."
   :group 'pong
   :type '(integer))
 
 (defcustom pong-bat-width 3
-  "*Width of the bats for pong."
+  "Width of the bats for pong."
   :group 'pong
   :type '(integer))
 
 (defcustom pong-blank-color "black"
-  "*Color used for background."
+  "Color used for background."
   :group 'pong
   :type 'color)
 
 (defcustom pong-bat-color "yellow"
-  "*Color used for bats."
+  "Color used for bats."
   :group 'pong
   :type 'color)
 
 (defcustom pong-ball-color "red"
-  "*Color used for the ball."
+  "Color used for the ball."
   :group 'pong
   :type 'color)
 
 (defcustom pong-border-color "white"
-  "*Color used for pong borders."
+  "Color used for pong borders."
   :group 'pong
   :type 'color)
 
 (defcustom pong-left-key "4"
-  "*Alternate key to press for bat 1 to go up (primary one is [left])."
+  "Alternate key to press for bat 1 to go up (primary one is [left])."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-right-key "6"
-  "*Alternate key to press for bat 1 to go down (primary one is [right])."
+  "Alternate key to press for bat 1 to go down (primary one is [right])."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-up-key "8"
-  "*Alternate key to press for bat 2 to go up (primary one is [up])."
+  "Alternate key to press for bat 2 to go up (primary one is [up])."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-down-key "2"
-  "*Alternate key to press for bat 2 to go down (primary one is [down])."
+  "Alternate key to press for bat 2 to go down (primary one is [down])."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-quit-key "q"
-  "*Key to press to quit pong."
+  "Key to press to quit pong."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
@@ -111,12 +109,12 @@
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-resume-key "p"
-  "*Key to press to resume pong."
+  "Key to press to resume pong."
   :group 'pong
   :type '(restricted-sexp :match-alternatives (stringp vectorp)))
 
 (defcustom pong-timer-delay 0.1
-  "*Time to wait between every cycle."
+  "Time to wait between every cycle."
   :group 'pong
   :type 'number)