From e10e314e2b7583d892e86cee92ec57d3a1030ce4 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Thu, 2 May 2019 10:17:56 -0400 Subject: [PATCH] use view-mode on score file for ease of scrolling and quitting --- lisp/play/gamegrid.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.2