Mercurial > emacs
changeset 43655:1ae60187a39d
fixed parens in the last patch
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Sun, 03 Mar 2002 16:09:28 +0000 |
| parents | a6ae9785d3b6 |
| children | c825cf5da356 |
| files | lisp/ChangeLog lisp/play/snake.el lisp/play/tetris.el |
| diffstat | 3 files changed, 18 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Mar 03 14:17:47 2002 +0000 +++ b/lisp/ChangeLog Sun Mar 03 16:09:28 2002 +0000 @@ -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>
--- a/lisp/play/snake.el Sun Mar 03 14:17:47 2002 +0000 +++ b/lisp/play/snake.el Sun Mar 03 16:09:28 2002 +0000 @@ -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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- a/lisp/play/tetris.el Sun Mar 03 14:17:47 2002 +0000 +++ b/lisp/play/tetris.el Sun Mar 03 16:09:28 2002 +0000 @@ -85,10 +85,10 @@ "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 @@ "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 @@ [[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 @@ (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))