(gamegrid-add-score-with-update-game-score-1): Jump to the line where new score

has been uploaded.

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  <cwebber@dustycloud.org>  (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  <dominik@science.uva.nl>
 
         * 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