Mercurial > emacs
changeset 73638:d758e535681e
Installed [mark@mcs.vuw.ac.nz: sort-columns fails on NetBSD] patch
| author | Ramprasad B <ramprasad_i82@yahoo.com> |
|---|---|
| date | Fri, 03 Nov 2006 14:33:38 +0000 |
| parents | 7791ba93093c |
| children | f58700566a56 |
| files | lisp/sort.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/sort.el Fri Nov 03 14:33:11 2006 +0000 +++ b/lisp/sort.el Fri Nov 03 14:33:38 2006 +0000 @@ -506,7 +506,10 @@ ;; Do not use it if there are any non-font-lock properties ;; in the region, since the sort utility would lose the ;; properties. - (let ((sort-args (list (if reverse "-rt\n" "-t\n") + ;; Set the field separator to tab to have the same effect as + ;; sort-columns which makes sure there are no tabs in the region + ;; worked. + (let ((sort-args (list (if reverse "-rt\t" "-t\t") (format "-k1.%d,1.%d" (1+ col-start) (1+ col-end)))))