Fix a bunch of custom types (thank you cus-test.el)

[gnu-emacs] / lisp / play / tetris.el

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index dd33d067246a9795834255b19824fae272064674..19fa8f38a70b84fa9adecfcc8105591026a523c4 100644 (file)
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -77,20 +77,13 @@ If the return value is a number, it is used as the timer period."
   ["blue" "white" "yellow" "magenta" "cyan" "green" "red"]
   "Vector of colors of the various shapes in text mode."
   :group 'tetris
-  :type (let ((names `("Shape 1" "Shape 2" "Shape 3"
-                      "Shape 4" "Shape 5" "Shape 6" "Shape 7"))
-             (result nil))
-         (while names
-           (add-to-list 'result
-                        (cons 'choice
-                              (cons :tag
-                                    (cons (car names)
-                                          (mapcar (lambda (color)
-                                                    (list 'const color))
-                                                  (defined-colors)))))
-                        t)
-           (setq names (cdr names)))
-         result))
+  :type '(vector (color :tag "Shape 1")
+                (color :tag "Shape 2")
+                (color :tag "Shape 3")
+                (color :tag "Shape 4")
+                (color :tag "Shape 5")
+                (color :tag "Shape 6")
+                (color :tag "Shape 7")))
 
 (defcustom tetris-x-colors
   [[0 0 1] [0.7 0 1] [1 1 0] [1 0 1] [0 1 1] [0 1 0] [1 0 0]]