fixed parens in the last patch

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0a878aa946798d95da4377c048ec0718cb83e54..db8d0bb1f68ab7e8d727c227f787b2b8dd2bab05 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,16 @@
+2002-03-03  Sam Steingold  <sds@gnu.org>
+
+       * play/snake.el (snake-score-file): Fixed parens (broken by the
+       last patch).
+       * play/tetris.el (tetris-score-file): Ditto.
+
 2002-03-03  Richard M. Stallman  <rms@gnu.org>
 
        * play/tetris.el (tetris-score-file): Put in home dir, not in /tmp.
 
        * play/snake.el (snake-score-file): Put in home dir, not in /tmp.
 
-       * play/gamegrid.el (gamegrid-set-font, gamegrid-setup-face) 
+       * play/gamegrid.el (gamegrid-set-font, gamegrid-setup-face)
        (gamegrid-make-mono-tty-face): Fix usage of condition-case.
 
 2002-03-03  Thien-Thi Nguyen  <ttn@gnu.org>

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index d99d342906b0f8b9abf52dbbc8e0a5c4cad10673..b2413910a6f620849e3971489feebeca119849e6 100644 (file)
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -83,9 +83,9 @@
   "Y position of score.")
 
 ;; It is not safe to put this in /tmp.
-;; Someone could make a symlink in /tmp 
+;; Someone could make a symlink in /tmp
 ;; pointing to a file you don't want to clobber.
-(defvar snake-score-file "~/.snake-scores")
+(defvar snake-score-file "~/.snake-scores"
   "File for holding high scores.")
 
 ;; ;;;;;;;;;;;;; display options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index e0bd3f99aa889f2fb4cf04823e8599ba5831e074..778d1ba69338c7f0ce3362d2908e26f473e91954 100644 (file)
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -85,10 +85,10 @@ Element 0 is ignored."
                       "Shape 4" "Shape 5" "Shape 6" "Shape 7"))
              (result `(vector (const nil))))
          (while names
-           (add-to-list 'result 
-                        (cons 'choice 
-                              (cons :tag 
-                                    (cons (car names) 
+           (add-to-list 'result
+                        (cons 'choice
+                              (cons :tag
+                                    (cons (car names)
                                           (mapcar (lambda (color)
                                                     (list 'const color))
                                                   (defined-colors)))))
@@ -151,9 +151,9 @@ Element 0 is ignored."
   "Y position of score.")
 
 ;; It is not safe to put this in /tmp.
-;; Someone could make a symlink in /tmp 
+;; Someone could make a symlink in /tmp
 ;; pointing to a file you don't want to clobber.
-(defvar tetris-score-file "~/.tetris-scores")
+(defvar tetris-score-file "~/.tetris-scores"
 ;; anybody with a well-connected server want to host this?
 ;(defvar tetris-score-file "/anonymous@ftp.pgt.com:/pub/cgw/tetris-scores"
   "File for holding high scores.")
@@ -235,10 +235,10 @@ Element 0 is ignored."
     [[0 0 0 0] [7 0 0 0] [0 0 0 0] [7 0 0 0]]
     [[0 0 0 0] [7 0 0 0] [0 0 0 0] [7 0 0 0]]]])
 
-;;the scoring rules were taken from "xtetris".  Blocks score differently 
+;;the scoring rules were taken from "xtetris".  Blocks score differently
 ;;depending on their rotation
 
-(defconst tetris-shape-scores 
+(defconst tetris-shape-scores
   [ [6 6 6 6] [6 7 6 7] [6 7 6 7] [6 7 6 7] [6 7 6 7] [5 5 6 5] [5 8 5 8]] )
 
 (defconst tetris-shape-dimensions
@@ -491,7 +491,7 @@ Element 0 is ignored."
   (tetris-shift-down)
   (setq tetris-n-shapes (1+ tetris-n-shapes))
   (setq tetris-score
-       (+ tetris-score 
+       (+ tetris-score
           (aref (aref tetris-shape-scores tetris-shape) tetris-rot)))
   (tetris-update-score)
   (tetris-new-shape))