diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-03-15 04:46:45 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-03-15 04:46:45 +0000 |
| commit | a4b13e104e6eb549d60ef7d83f62829e7e699b21 (patch) | |
| tree | 72a4f1374313e939f6d5c991d1b7b433cbfaaa55 /lisp/sort.el | |
| parent | 6da3b16b35d815388316e0633465f33c4c168a63 (diff) | |
| download | emacs-a4b13e104e6eb549d60ef7d83f62829e7e699b21.tar.gz | |
* sort.el (sort-float-fields, sort-numeric-fields): Use
string-to-number, not string-to-float or string-to-int.
* sort.el (sort-float-fields): Make this autoloaded.
* sort.el (sort-numeric-fields): Doc fix.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/sort.el b/lisp/sort.el index 2d56aee1f9a..8c3285e144a 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -239,12 +239,13 @@ Fields are separated by whitespace and numbered from 1 up. Specified field must contain a number in each line of the region. With a negative arg, sorts by the ARGth field counted from the right. Called from a program, there are three arguments: -FIELD, BEG and END. BEG and END specify region to sort." +FIELD, BEG and END. BEG and END specify region to sort. +If you want to sort floating-point numbers, try `sort-float-fields'." (interactive "p\nr") (sort-fields-1 field beg end (function (lambda () (sort-skip-fields (1- field)) - (string-to-int + (string-to-number (buffer-substring (point) (save-excursion @@ -254,6 +255,7 @@ FIELD, BEG and END. BEG and END specify region to sort." (point)))))) nil)) +;;;###autoload (defun sort-float-fields (field beg end) "Sort lines in region numerically by the ARGth field of each line. Fields are separated by whitespace and numbered from 1 up. Specified field |