# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757570518 0
# Node ID 6eb86cda3856f7bd081801536c63022697582d19
# Parent  4d74f3f4ed03abea886a884835d4e6495d014cc4
(sort-float-fields): Commented out.

diff -r 4d74f3f4ed03 -r 6eb86cda3856 lisp/sort.el
--- a/lisp/sort.el	Sun Jan 02 21:51:47 1994 +0000
+++ b/lisp/sort.el	Mon Jan 03 04:15:18 1994 +0000
@@ -248,8 +248,7 @@
 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 @@
 				  (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)