diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-18 22:40:21 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-18 22:40:21 +0000 |
| commit | 395066201d7d1ced328b4a980691ea4c5e0e50da (patch) | |
| tree | d627b50f995921ad9d32966a656aeb330c47ba7d /chess-file.el | |
| parent | 0f505fca10e63d68eb3b536113e443f6783bd092 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-file.el')
| -rw-r--r-- | chess-file.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/chess-file.el b/chess-file.el index e22ede3..dfbd3b6 100644 --- a/chess-file.el +++ b/chess-file.el @@ -17,13 +17,14 @@ (current-buffer))) ((eq event 'rescan) - (goto-char (point-min)) - (setq chess-file-locations nil) - (while (search-forward "[Event " nil t) - (goto-char (match-beginning 0)) - (push (point) chess-file-locations) - (forward-char 1)) - (setq chess-file-locations (nreverse chess-file-locations))) + (save-excursion + (goto-char (point-min)) + (setq chess-file-locations nil) + (while (search-forward "[Event " nil t) + (goto-char (match-beginning 0)) + (push (point) chess-file-locations) + (forward-char 1)) + (setq chess-file-locations (nreverse chess-file-locations)))) ((eq event 'save) (save-buffer)) |