diff options
| -rw-r--r-- | lisp/play/gamegrid.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el index 91192517f7c..b6fd064ca84 100644 --- a/lisp/play/gamegrid.el +++ b/lisp/play/gamegrid.el | |||
| @@ -509,10 +509,11 @@ FILE is created there." | |||
| 509 | (unless (file-exists-p | 509 | (unless (file-exists-p |
| 510 | (directory-file-name gamegrid-user-score-file-directory)) | 510 | (directory-file-name gamegrid-user-score-file-directory)) |
| 511 | (make-directory gamegrid-user-score-file-directory t)) | 511 | (make-directory gamegrid-user-score-file-directory t)) |
| 512 | (let ((f (expand-file-name file gamegrid-user-score-file-directory))) | 512 | (let ((f (expand-file-name file |
| 513 | (unless (file-exists-p f) | 513 | gamegrid-user-score-file-directory))) |
| 514 | (unless (file-exists-p f) | ||
| 514 | (write-region "" nil f nil 'silent nil 'excl)) | 515 | (write-region "" nil f nil 'silent nil 'excl)) |
| 515 | (gamegrid-add-score-with-update-game-score-1 file f score)))))) | 516 | (gamegrid-add-score-with-update-game-score-1 file f score)))))) |
| 516 | 517 | ||
| 517 | (defun gamegrid-add-score-with-update-game-score-1 (file target score) | 518 | (defun gamegrid-add-score-with-update-game-score-1 (file target score) |
| 518 | (let ((default-directory "/") | 519 | (let ((default-directory "/") |