Fix previous change.

1 files changed, 19 insertions, 9 deletions

diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index ffb179d52d2..342b7a5cd14 100644
--- a/lisp/play/gamegrid.el
+++ b/lisp/play/gamegrid.el
@@ -407,7 +407,17 @@ static char *noname[] = {
 (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 @@ static char *noname[] = {
                  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))))
         
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;