use view-mode on score file for ease of scrolling and quitting

diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index 4a9dac7f7486023cfff28cb47a41770a70616bd1..54eeafd2b537fbf69e0aaa9296d912201b224515 100644 (file)
--- a/lisp/play/gamegrid.el
+++ b/lisp/play/gamegrid.el
@@ -663,6 +663,7 @@ FILE is created there."
              (revert-buffer nil t nil)
              (display-buffer buf))
          (find-file-read-only target))
+        (view-mode)
         (goto-char (point-min))
         (search-forward (concat (int-to-string score)
                                " " (user-login-name) " "
@@ -691,7 +692,8 @@ FILE is created there."
     (forward-line gamegrid-score-file-length)
     (delete-region (point) (point-max))
     (setq buffer-read-only t)
-    (save-buffer)))
+    (save-buffer)
+    (view-mode)))
 
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;