diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/play/gamegrid.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cb27984f971..5f8b71b739d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2004-04-05 Jesper Harder <harder@ifa.au.dk> | ||
| 2 | |||
| 3 | * play/gamegrid.el (gamegrid-add-score-insecure): Use sort-fields. | ||
| 4 | |||
| 1 | 2004-04-04 Luc Teirlinck <teirllm@auburn.edu> | 5 | 2004-04-04 Luc Teirlinck <teirllm@auburn.edu> |
| 2 | 6 | ||
| 3 | * autorevert.el (auto-revert-handler): If point (or a window | 7 | * autorevert.el (auto-revert-handler): If point (or a window |
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el index 70e9ff2f954..54a8f361c99 100644 --- a/lisp/play/gamegrid.el +++ b/lisp/play/gamegrid.el | |||
| @@ -566,7 +566,7 @@ FILE is created there." | |||
| 566 | ((boundp 'user-mail-address) | 566 | ((boundp 'user-mail-address) |
| 567 | user-mail-address) | 567 | user-mail-address) |
| 568 | (t "")))) | 568 | (t "")))) |
| 569 | (sort-numeric-fields 1 (point-min) (point-max)) | 569 | (sort-fields 1 (point-min) (point-max)) |
| 570 | (reverse-region (point-min) (point-max)) | 570 | (reverse-region (point-min) (point-max)) |
| 571 | (goto-line (1+ gamegrid-score-file-length)) | 571 | (goto-line (1+ gamegrid-score-file-length)) |
| 572 | (delete-region (point) (point-max)) | 572 | (delete-region (point) (point-max)) |