branch: master commit 57f54d8cf1361e95499c521b3bb8273039618422 Author: Tino Calancha <tino.calan...@gmail.com> Commit: Tino Calancha <tino.calan...@gmail.com>
Dont prompt user when updating the score file Bump version to 1.4 * packages/mines/mines.el (mines--sort-score-file): Revert the buffer visiting the score file and set it read only. --- packages/mines/mines.el | 28 ++++++++++++++++------------ 1 file changed, 16 insertions(+), 12 deletions(-) diff --git a/packages/mines/mines.el b/packages/mines/mines.el index 413e07e..63096a3 100644 --- a/packages/mines/mines.el +++ b/packages/mines/mines.el @@ -5,7 +5,7 @@ ;; Author: Tino Calancha <tino.calan...@gmail.com> ;; Created: 2017-10-28 ;; Keywords: games -;; Version: 1.2 +;; Version: 1.4 ;; Package-Requires: ((emacs "24.4") (cl-lib "0.5")) ;; url: https://github.com/calancha/Minesweeper @@ -453,14 +453,20 @@ Instead, in this file the score is the number of seconds to complete the game, i.e., getting a shorter score means a better result. After sorting, games completed with shorter times appear first." (when (file-exists-p file) - (with-temp-file file - (insert - (with-temp-buffer - (insert-file-contents file) (buffer-string))) - (sort-fields 1 (point-min) (point-max)) - (goto-char (point-min)) - (forward-line (or limit gamegrid-score-file-length)) - (delete-region (point) (point-max))))) + (let ((buf (get-file-buffer file))) + (with-temp-file file + (insert + (with-temp-buffer + (insert-file-contents file) (buffer-string))) + (sort-fields 1 (point-min) (point-max)) + (goto-char (point-min)) + (forward-line (or limit gamegrid-score-file-length)) + (delete-region (point) (point-max))) + ;; If there is a buffer visiting FILE, then revert it. + (when buf + (with-current-buffer buf + (revert-buffer nil 'noconfirm) + (read-only-mode 1)))))) (defun mines-game-completed () (setq mines-end-time (current-time)) @@ -485,9 +491,7 @@ After sorting, games completed with shorter times appear first." ;; save score (gamegrid-add-score score-file score) ;; Sort `score-file' again and update the buffer visiting it. - (mines--sort-score-file score-file) - (with-current-buffer (find-buffer-visiting score-file) - (revert-buffer nil 'noconfirm))) + (mines--sort-score-file score-file)) (message (format "Well done %s, you have completed it in %s!" user-login-name elapsed-time))))