mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Sam Steingold 2019-05-02 10:17:56 -04:00
parent c555d10d0f
commit e10e314e2b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/play/gamegrid.el
View File

@ -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)))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;