martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gamegrid-add-score-with-update-game-score fix

Browse Source 
* lisp/play/gamegrid.el (gamegrid-add-score-with-update-game-score):
Fix directory creation in fallback case.
This commit is contained in:
Glenn Morris
2013-02-04 21:03:51 -05:00
parent 50fdf39987
commit 3505fa027b
2 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@@ -1,3 +1,8 @@
2013-02-05 Glenn Morris <rgm@gnu.org>
* play/gamegrid.el (gamegrid-add-score-with-update-game-score):
Fix directory creation in fallback case.
2013-02-04 Thierry Volpiatto <thierry.volpiatto@gmail.com>
* vc/vc.el (vc-next-action): Fix inf-loop (bug#13610).

14
lisp/play/gamegrid.el
View File

@@ -505,15 +505,13 @@ FILE is created there."
(make-directory gamegrid-user-score-file-directory t))
(gamegrid-add-score-insecure file score
gamegrid-user-score-file-directory))
(t (let ((f (expand-file-name
gamegrid-user-score-file-directory)))
(when (file-writable-p f)
(unless (eq (car-safe (file-attributes f))
t)
(make-directory f))
(setq f (expand-file-name file f))
(t
(unless (file-exists-p
(directory-file-name gamegrid-user-score-file-directory))
(make-directory gamegrid-user-score-file-directory t))
(let ((f (expand-file-name file gamegrid-user-score-file-directory)))
(unless (file-exists-p f)
(write-region "" nil f nil 'silent nil 'excl)))
(write-region "" nil f nil 'silent nil 'excl))
(gamegrid-add-score-with-update-game-score-1 file f score))))))
(defun gamegrid-add-score-with-update-game-score-1 (file target score)