Mercurial > emacs
changeset 44565:9bdd94e7a205
(gamegrid-add-score-with-update-game-score): Renamed from `gamegrid-add-score'.
(gamegrid-add-score-insecure): Restored from the old `update-game-score'.
(gamegrid-add-score): Just dispatch on `system-type' to one of the
previous two functions.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sat, 13 Apr 2002 20:26:36 +0000 |
| parents | ada5f764f32a |
| children | 7a0ad319b38f |
| files | lisp/play/gamegrid.el |
| diffstat | 1 files changed, 29 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/gamegrid.el Sat Apr 13 17:49:34 2002 +0000 +++ b/lisp/play/gamegrid.el Sat Apr 13 20:26:36 2002 +0000 @@ -406,6 +406,13 @@ (defun gamegrid-add-score (file score) "Add the current score to the high score file." + (case system-type + ((ms-dos windows-nt) + (gamegrid-add-score-insecure file score)) + (t + (gamegrid-add-score-with-update-game-score file score)))) + +(defun gamegrid-add-score-with-update-game-score (file score) (let ((result nil) (errbuf (generate-new-buffer " *update-game-score loss*")) (target (if game-score-directory @@ -445,6 +452,28 @@ (save-excursion (find-file-read-only-other-window target)))) +(defun gamegrid-add-score-insecure (file score) + (save-excursion + (setq file (expand-file-name file temporary-file-directory)) + (find-file-other-window file) + (setq buffer-read-only nil) + (goto-char (point-max)) + (insert (format "%05d\t%s\t%s <%s>\n" + score + (current-time-string) + (user-full-name) + (cond ((fboundp 'user-mail-address) + (user-mail-address)) + ((boundp 'user-mail-address) + user-mail-address) + (t "")))) + (sort-numeric-fields 1 (point-min) (point-max)) + (reverse-region (point-min) (point-max)) + (goto-line (1+ gamegrid-score-file-length)) + (delete-region (point) (point-max)) + (setq buffer-read-only t) + (save-buffer))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;