diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-03 04:15:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-03 04:15:18 +0000 |
| commit | 628c323dfcf388277608b0dd5dedcf881f20b574 (patch) | |
| tree | f48df1fd33a3c51f9b0977835438da68ca606b09 /lisp/sort.el | |
| parent | 5d2432d1a9ec3af612012f97f6cc83dcae3feb4f (diff) | |
| download | emacs-628c323dfcf388277608b0dd5dedcf881f20b574.tar.gz | |
(sort-float-fields): Commented out.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 43 |
1 files changed, 21 insertions, 22 deletions
diff --git a/lisp/sort.el b/lisp/sort.el index 7e200b4dadb..b9aa5b22e6e 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -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) |