# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1140551548 0
# Node ID 68ba98572eb984b51819449333518d730a7d9efa
# Parent  fba8c045e2a082885adc3af8b6ec06088c63bac5
(sort-columns): Use Posix arg syntax for `sort'.

diff -r fba8c045e2a0 -r 68ba98572eb9 lisp/sort.el
--- a/lisp/sort.el	Tue Feb 21 19:52:07 2006 +0000
+++ b/lisp/sort.el	Tue Feb 21 19:52:28 2006 +0000
@@ -499,8 +499,9 @@
 	  ;; in the region, since the sort utility would lose the
 	  ;; properties.
 	  (let ((sort-args (list (if reverse "-rt\n" "-t\n")
-				 (concat "+0." (int-to-string col-start))
-				 (concat "-0." (int-to-string col-end)))))
+				 (format "-k1.%d,1.%d"
+					 (1+ col-start)
+					 (1+ col-end)))))
 	    (when sort-fold-case
 	      (push "-f" sort-args))
 	    (apply #'call-process-region beg1 end1 "sort" t t nil sort-args))