# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1018480605 0
# Node ID bca3cc7821fe7a1011c1510f7c6668a98155b4f4
# Parent  dc864bb90c6c9c327fa79521c773d3c1b988b63d
Fix previous change.

diff -r dc864bb90c6c -r bca3cc7821fe lisp/play/gamegrid.el
--- a/lisp/play/gamegrid.el	Wed Apr 10 22:14:09 2002 +0000
+++ b/lisp/play/gamegrid.el	Wed Apr 10 23:16:45 2002 +0000
@@ -407,7 +407,17 @@
 (defun gamegrid-add-score (file score)
   "Add the current score to the high score file."
   (let ((result nil)
-	(errbuf (generate-new-buffer " *update-game-score loss*")))
+	(errbuf (generate-new-buffer " *update-game-score loss*"))
+	(target (if game-score-directory
+		    file
+		  (let ((f (expand-file-name "~/.emacs.d/games")))
+		    (unless (eq (car-safe (file-attributes f))
+				t)
+		      (make-directory f))
+		    (setq f (expand-file-name file f))
+		    (unless (file-exists-p f)
+		      (write-region "" nil f nil 'silent nil 'excl))
+		    f))))
     (let ((default-directory "/"))
       (apply
        'call-process
@@ -426,14 +436,14 @@
 		 user-mail-address)
 		(t ""))
 	  ">  "
-	  (current-time-string)))))
-      (if (buffer-modified-p errbuf)
-	  (progn
-	    (display-buffer errbuf)
-	    (error "Failed to update game score file"))
-	(kill-buffer errbuf))))
-  (save-excursion
-    (find-file-read-only-other-window (expand-file-name file game-score-directory))))
+	  (current-time-string))))))
+    (if (buffer-modified-p errbuf)
+	(progn
+	  (display-buffer errbuf)
+	  (error "Failed to update game score file"))
+      (kill-buffer errbuf))
+    (save-excursion
+      (find-file-read-only-other-window target))))
 	
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;