From: Sam Steingold <sds@gnu.org>
Date: Thu, 2 May 2019 14:17:56 +0000 (-0400)
Subject: use view-mode on score file for ease of scrolling and quitting
X-Git-Tag: emacs-27.0.90~3019
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e10e314e2b7583d892e86cee92ec57d3a1030ce4;p=emacs.git

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 4a9dac7f748..54eeafd2b53 100644
--- 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)))
 
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;