summaryrefslogtreecommitdiff
path: root/lisp/play
diff options
context:
space:
mode:
authorColin Walters <walters@gnu.org>2002-04-23 20:24:40 +0000
committerColin Walters <walters@gnu.org>2002-04-23 20:24:40 +0000
commit80f60ab4d9785b5d41aca1d486551f10d4864d97 (patch)
tree72d56e5506e5dc4517aad0bbb768d80d030a5981 /lisp/play
parenteacdfade34a628c8dc15ee9e5636725f99ede7d7 (diff)
downloademacs-80f60ab4d9785b5d41aca1d486551f10d4864d97.tar.gz
(gamegrid-add-score-with-update-game-score): Handle the case where
we're already viewing the score file.
Diffstat (limited to 'lisp/play')
-rw-r--r--lisp/play/gamegrid.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index edafee550e2..aff6a9bdec8 100644
--- a/lisp/play/gamegrid.el
+++ b/lisp/play/gamegrid.el
@@ -450,8 +450,14 @@ static char *noname[] = {
(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))