# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 981590715 0
# Node ID 6ee038ed072b23dd8f139361fa117cd7539aec55
# Parent  a6d7df85ca410578048f354b457cdbf04274c86c
(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.

diff -r a6d7df85ca41 -r 6ee038ed072b lisp/play/pong.el
--- a/lisp/play/pong.el	Thu Feb 08 00:01:35 2001 +0000
+++ b/lisp/play/pong.el	Thu Feb 08 00:05:15 2001 +0000
@@ -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