diff options
author | Dave Love <[email protected]> | 2001-02-08 00:05:15 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2001-02-08 00:05:15 +0000 |
commit | a430ca8886725cf47b53eccf960bb054a32af395 (patch) | |
tree | 7b678f1fed18b255a2ae4103009d974d205cb837 /lisp/play | |
parent | f37489e6722f39bac68705a766862c853ccc70d0 (diff) |
(pong-blank-color, pong-bat-color)
(pong-ball-color, pong-border-color, pong-left-key)
(pong-right-key, pong-up-key, pong-down-key, pong-quit-key)
(pong-pause-key, pong-resume-key, pong-timer-delay): Fix :type.
Diffstat (limited to 'lisp/play')
-rw-r--r-- | lisp/play/pong.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/play/pong.el b/lisp/play/pong.el index 20be4ddf0b..e1d76b7b16 100644 --- a/lisp/play/pong.el +++ b/lisp/play/pong.el @@ -62,62 +62,62 @@ (defcustom pong-blank-color "black" "*Color used for background." :group 'pong - :type '(string)) + :type 'color) (defcustom pong-bat-color "yellow" "*Color used for bats." :group 'pong - :type '(string)) + :type 'color) (defcustom pong-ball-color "red" "*Color used for the ball." :group 'pong - :type '(string)) + :type 'color) (defcustom pong-border-color "white" "*Color used for pong balls." :group 'pong - :type '(string)) + :type 'color) (defcustom pong-left-key "4" "*Alternate key to press for bat 1 to go up (primary one is [left])." :group 'pong - :type '(vector)) + :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])." :group 'pong - :type '(vector)) + :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])." :group 'pong - :type '(vector)) + :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])." :group 'pong - :type '(vector)) + :type '(restricted-sexp :match-alternatives (stringp vectorp))) (defcustom pong-quit-key "q" "*Key to press to quit pong." :group 'pong - :type '(vector)) + :type '(restricted-sexp :match-alternatives (stringp vectorp))) (defcustom pong-pause-key "p" "Key to press to pause pong." :group 'pong - :type '(vector)) + :type '(restricted-sexp :match-alternatives (stringp vectorp))) (defcustom pong-resume-key "p" "*Key to press to resume pong." :group 'pong - :type '(vector)) + :type '(restricted-sexp :match-alternatives (stringp vectorp))) (defcustom pong-timer-delay 0.1 "*Time to wait between every cycle." :group 'pong - :type '(integer)) + :type 'number) ;;; This is black magic. Define colors used |