From 12549864fd5acfca87b8d070ae4d18cf8a9db9e6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 21 Feb 2006 19:52:28 +0000 Subject: [PATCH] (sort-columns): Use Posix arg syntax for `sort'. --- lisp/sort.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) -- 2.11.4.GIT