From dcec69ee9923ea6cc6ac8ab9b5e9a0b9224c2571 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Wed, 10 Apr 2002 23:16:45 +0000 Subject: [PATCH] Fix previous change. --- lisp/play/gamegrid.el | 28 +++++++++++++++++++--------- 1 file 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)))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.2