# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1019593480 0
# Node ID 4648f6129f7fc1883cd0c0bb77627ec2c81895f2
# Parent  3969f8273bc821642edb0512896720ef492d3f84
(gamegrid-add-score-with-update-game-score): Handle the case where
we're already viewing the score file.

diff -r 3969f8273bc8 -r 4648f6129f7f lisp/play/gamegrid.el
--- a/lisp/play/gamegrid.el	Tue Apr 23 20:24:25 2002 +0000
+++ b/lisp/play/gamegrid.el	Tue Apr 23 20:24:40 2002 +0000
@@ -450,8 +450,14 @@
 	  (error "Failed to update game score file"))
       (kill-buffer errbuf))
     (save-excursion
-      (find-file-read-only-other-window target))))
-	
+      (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))))))
+
 (defun gamegrid-add-score-insecure (file score)
   (save-excursion
     (setq file (expand-file-name file temporary-file-directory))