(tetris-score-file): Put in home dir, not in /tmp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95a29ae4926c9ead982b74b73c382cf0fe2b691c..f0a878aa946798d95da4377c048ec0718cb83e54 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 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) 

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 44968431497b10d0267811980a5db8da5dd0548f..e0bd3f99aa889f2fb4cf04823e8599ba5831e074 100644 (file)
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -150,7 +150,10 @@ Element 0 is ignored."
 (defvar tetris-score-y (+ tetris-next-y 6)
   "Y position of score.")
 
-(defvar tetris-score-file (concat temporary-file-directory "tetris-scores")
+;; It is not safe to put this 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")
 ;; 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.")