Mercurial > emacs
diff lisp/play/pong.el @ 104848:1382a0cd8022
Remove leading * from defcustom and defface docs.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 04 Sep 2009 06:58:59 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
line wrap: on
line diff
--- a/lisp/play/pong.el Fri Sep 04 06:58:00 2009 +0000 +++ b/lisp/play/pong.el Fri Sep 04 06:58:59 2009 +0000 @@ -1,7 +1,7 @@ ;;; pong.el --- classical implementation of pong -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009 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)