Mercurial > emacs
comparison lisp/play/gamegrid.el @ 54716:1ffff21d0989
(gamegrid-add-score-insecure): Use sort-fields.
| author | Jesper Harder <harder@ifa.au.dk> |
|---|---|
| date | Mon, 05 Apr 2004 11:57:14 +0000 |
| parents | 695cf19ef79e |
| children | eaa9acd9122c |
comparison
equal
deleted
inserted
replaced
| 54715:d8d0a55983fb | 54716:1ffff21d0989 |
|---|---|
| 564 (cond ((fboundp 'user-mail-address) | 564 (cond ((fboundp 'user-mail-address) |
| 565 (user-mail-address)) | 565 (user-mail-address)) |
| 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)) |
| 573 (setq buffer-read-only t) | 573 (setq buffer-read-only t) |
| 574 (save-buffer))) | 574 (save-buffer))) |