From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 21 Feb 2006 19:52:28 +0000 (+0000)
Subject: (sort-columns): Use Posix arg syntax for `sort'.
X-Git-Tag: emacs-pretest-22.0.90~3964
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12549864fd5acfca87b8d070ae4d18cf8a9db9e6;p=emacs.git

(sort-columns): Use Posix arg syntax for `sort'.
---

diff --git a/lisp/sort.el b/lisp/sort.el
index 174a8531786..5183bf65afa 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -499,8 +499,9 @@ Use \\[untabify] to convert tabs to spaces before sorting."
 	  ;; 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))