diff options
author | Sam Steingold <sds@gnu.org> | 2019-05-02 10:17:56 -0400 |
---|---|---|
committer | Sam Steingold <sds@gnu.org> | 2019-05-02 10:18:14 -0400 |
commit | e10e314e2b7583d892e86cee92ec57d3a1030ce4 (patch) | |
tree | 2ff8f6094b2dd6b154b94a8d545e0b1d4bd36a5e | |
parent | c555d10d0feee51dfe45305d3aae60490f425447 (diff) | |
download | emacs-e10e314e2b7583d892e86cee92ec57d3a1030ce4.tar.gz |
use view-mode on score file for ease of scrolling and quitting
-rw-r--r-- | lisp/play/gamegrid.el | 4 |
1 files changed, 3 insertions, 1 deletions
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))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |