# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1020454258 0
# Node ID 9cd63d47f45f9daeafde0557fd6f68c534f2c4b5
# Parent  7cc9fc5941fa895139a2f0d494268b26feaf1500
(gamegrid-user-score-file-directory): New variable.
(gamegrid-add-score-with-update-game-score): Use
`shared-game-score-directory'.  Correctly handle non-setuid case.

diff -r 7cc9fc5941fa -r 9cd63d47f45f lisp/play/gamegrid.el
--- a/lisp/play/gamegrid.el	Fri May 03 19:26:43 2002 +0000
+++ b/lisp/play/gamegrid.el	Fri May 03 19:30:58 2002 +0000
@@ -61,6 +61,11 @@
 (defvar gamegrid-score-file-length 50
   "Number of high scores to keep")
 
+(defvar gamegrid-user-score-file-directory "~/.emacs.d/games"
+  "A directory for game scores which can't be shared.
+If Emacs was built without support for shared game scores, then this
+directory will be used.")
+
 (make-variable-buffer-local 'gamegrid-use-glyphs)
 (make-variable-buffer-local 'gamegrid-use-color)
 (make-variable-buffer-local 'gamegrid-font)
@@ -421,8 +426,9 @@
 						 exec-directory))
 			      #o4000))))
 	 (target (if have-shared-game-dir
-		     (expand-file-name file game-score-directory)
-		   (let ((f (expand-file-name game-score-directory)))
+		     (expand-file-name file shared-game-score-directory)
+		   (let ((f (expand-file-name
+			     gamegrid-user-score-file-directory)))
 		     (when (file-writable-p f)
 		       (unless (eq (car-safe (file-attributes f))
 				   t)
@@ -439,7 +445,10 @@
 	 (expand-file-name "update-game-score" exec-directory)
 	 nil errbuf nil
 	 "-m" (int-to-string gamegrid-score-file-length)
-	 "-d" (expand-file-name game-score-directory) file
+	 "-d" (if have-shared-game-dir
+		  (expand-file-name shared-game-score-directory)
+		(file-name-directory target))
+	 file
 	 (int-to-string score)
 	 (concat
 	  (user-full-name)