mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(sort-float-fields): Commented out.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-01-03 04:15:18 +00:00
parent 885020c535
commit 4138e60008
1 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lisp/sort.el
View File

@ -248,8 +248,7 @@ 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.
If you want to sort floating-point numbers, try `sort-float-fields'."
FIELD, BEG and END. BEG and END specify region to sort."
(interactive "p\nr")
(sort-fields-1 field beg end
(function (lambda ()
@ -264,26 +263,26 @@ If you want to sort floating-point numbers, try `sort-float-fields'."
(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
must contain a floating point 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."
(interactive "p\nr")
(sort-fields-1 field beg end
(function (lambda ()
(sort-skip-fields field)
(string-to-number
(buffer-substring
(point)
(save-excursion
(re-search-forward
"[+-]?[0-9]*\.?[0-9]*\\([eE][+-]?[0-9]+\\)?")
(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
;;must contain a floating point 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."
;; (interactive "p\nr")
;; (sort-fields-1 field beg end
;; (function (lambda ()
;; (sort-skip-fields field)
;; (string-to-number
;; (buffer-substring
;; (point)
;; (save-excursion
;; (re-search-forward
;; "[+-]?[0-9]*\.?[0-9]*\\([eE][+-]?[0-9]+\\)?")
;; (point))))))
;; nil))
;;;###autoload
(defun sort-fields (field beg end)