procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2006-02-21 19:52:28 +00:00
parent 51a77cba21
commit 12549864fd
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/sort.el
View file

@ -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))