diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-14 23:07:06 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-14 23:07:06 +0000 |
| commit | db5b94f367aebaeb019b46b2e2feb9f366d5d964 (patch) | |
| tree | 51fcd68cc026f631a7a50efa8795be46d340469d /chess-file.el | |
| parent | 4aa1c73a2e77af7bcf1bd24837c9f07488068cdd (diff) | |
*** no comment ***
Diffstat (limited to 'chess-file.el')
| -rw-r--r-- | chess-file.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/chess-file.el b/chess-file.el index 9667c06..dacf6b3 100644 --- a/chess-file.el +++ b/chess-file.el @@ -22,7 +22,8 @@ (setq chess-file-locations nil) (while (search-forward "[Event" nil t) (goto-char (match-beginning 0)) - (push (point) chess-file-locations)) + (push (point) chess-file-locations) + (forward-char 1)) (setq chess-file-locations (nreverse chess-file-locations))) ((eq event 'save) @@ -40,7 +41,8 @@ (chess-game-set-data game 'database (current-buffer)) (chess-game-set-data game 'database-index index) (chess-game-set-data game 'database-count - (chess-file-handler 'count)))))) + (chess-file-handler 'count)) + game)))) ((eq event 'write) (goto-char (point-max)) |