procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gamegrid-add-score-with-update-game-score-1): Jump to the line where new score

Browse source 
has been uploaded.
This commit is contained in:
Eli Zaretskii 2007-03-03 12:18:56 +00:00
parent 297a6dcaff
commit 94430ab7fd
2 changed files with 33 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2007-03-03 Christopher Allan Webber <cwebber@dustycloud.org> (tiny change)
* play/gamegrid.el (gamegrid-add-score-with-update-game-score-1):
jump to the line where new score has been uploaded.
* play/tetris.el (tetris-move-bottom, tetris-move-left)
(tetris-move-right, tetris-rotate-prev, tetris-rotate-next): Do
nothing when the game is paused.
2007-03-03 Carsten Dominik <dominik@science.uva.nl>
* textmodes/org.el (org-set-tags): Prevent slipping of point during

41
lisp/play/gamegrid.el
View file

@ -514,7 +514,17 @@ FILE is created there."
(defun gamegrid-add-score-with-update-game-score-1 (file target score)
(let ((default-directory "/")
(errbuf (generate-new-buffer " *update-game-score loss*")))
(errbuf (generate-new-buffer " *update-game-score loss*"))
(marker-string (concat
(user-full-name)
" <"
(cond ((fboundp 'user-mail-address)
(user-mail-address))
((boundp 'user-mail-address)
user-mail-address)
(t ""))
"> "
(current-time-string))))
;; This can be called from a timer, so enable local quits.
(with-local-quit
(apply
@ -529,28 +539,25 @@ FILE is created there."
(file-name-directory target))
file
(int-to-string score)
(concat
(user-full-name)
" <"
(cond ((fboundp 'user-mail-address)
(user-mail-address))
((boundp 'user-mail-address)
user-mail-address)
(t ""))
"> "
(current-time-string))))))
marker-string))))
(if (buffer-modified-p errbuf)
(progn
(display-buffer errbuf)
(error "Failed to update game score file"))
(kill-buffer errbuf))
(let ((buf (find-buffer-visiting target)))
(if buf
(progn
(with-current-buffer buf
(revert-buffer nil t nil))
(display-buffer buf))
(find-file-read-only-other-window target)))))
(save-excursion
(if buf
(progn
(switch-to-buffer buf)
(revert-buffer nil t nil)
(display-buffer buf))
(find-file-read-only target))
(goto-char (point-min))
(search-forward (concat (int-to-string score)
" " (user-login-name) " "
marker-string))
(beginning-of-line)))))
(defun gamegrid-add-score-insecure (file score &optional directory)
(save-excursion