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 f7857fc..523b837 100644 (file)
--- a/lisp/play/pong.el
+++ b/lisp/play/pong.el
@@ -1,7 +1,7 @@
 ;;; 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
@@ -39,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)))
 
@@ -109,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)