Mercurial > emacs
changeset 69079:68ba98572eb9
(sort-columns): Use Posix arg syntax for `sort'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Feb 2006 19:52:28 +0000 |
| parents | fba8c045e2a0 |
| children | 768cb704a371 |
| files | lisp/sort.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))