From 94430ab7fd416800665b3d38f05b7c6ab4c9c8a5 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 3 Mar 2007 12:18:56 +0000 Subject: [PATCH] (gamegrid-add-score-with-update-game-score-1): Jump to the line where new score has been uploaded. --- lisp/ChangeLog | 9 +++++++++ lisp/play/gamegrid.el | 41 ++++++++++++++++++++++++----------------- 2 files changed, 33 insertions(+), 17 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f53ec074cbb..df19625578d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2007-03-03 Christopher Allan Webber (tiny change) + + * play/gamegrid.el (gamegrid-add-score-with-update-game-score-1): + jump to the line where new score has been uploaded. + + * play/tetris.el (tetris-move-bottom, tetris-move-left) + (tetris-move-right, tetris-rotate-prev, tetris-rotate-next): Do + nothing when the game is paused. + 2007-03-03 Carsten Dominik * textmodes/org.el (org-set-tags): Prevent slipping of point during diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el index 1a2b8c31ef4..a5689e6f0ea 100644 --- a/lisp/play/gamegrid.el +++ b/lisp/play/gamegrid.el @@ -514,7 +514,17 @@ FILE is created there." (defun gamegrid-add-score-with-update-game-score-1 (file target score) (let ((default-directory "/") - (errbuf (generate-new-buffer " *update-game-score loss*"))) + (errbuf (generate-new-buffer " *update-game-score loss*")) + (marker-string (concat + (user-full-name) + " <" + (cond ((fboundp 'user-mail-address) + (user-mail-address)) + ((boundp 'user-mail-address) + user-mail-address) + (t "")) + "> " + (current-time-string)))) ;; This can be called from a timer, so enable local quits. (with-local-quit (apply @@ -529,28 +539,25 @@ FILE is created there." (file-name-directory target)) file (int-to-string score) - (concat - (user-full-name) - " <" - (cond ((fboundp 'user-mail-address) - (user-mail-address)) - ((boundp 'user-mail-address) - user-mail-address) - (t "")) - "> " - (current-time-string)))))) + marker-string)))) (if (buffer-modified-p errbuf) (progn (display-buffer errbuf) (error "Failed to update game score file")) (kill-buffer errbuf)) (let ((buf (find-buffer-visiting target))) - (if buf - (progn - (with-current-buffer buf - (revert-buffer nil t nil)) - (display-buffer buf)) - (find-file-read-only-other-window target))))) + (save-excursion + (if buf + (progn + (switch-to-buffer buf) + (revert-buffer nil t nil) + (display-buffer buf)) + (find-file-read-only target)) + (goto-char (point-min)) + (search-forward (concat (int-to-string score) + " " (user-login-name) " " + marker-string)) + (beginning-of-line))))) (defun gamegrid-add-score-insecure (file score &optional directory) (save-excursion -- 2.39.5