mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* sort.el (sort-float-fields, sort-numeric-fields): Use

Browse source 
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.
This commit is contained in:
Jim Blandy 1993-03-15 04:46:45 +00:00
parent 6da3b16b35
commit a4b13e104e
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/sort.el
View file

@ -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