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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95a29ae4926..f0a878aa946 100644
--- 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 44968431497..e0bd3f99aa8 100644
--- 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.")