diff options
| author | Ramprasad B <ramprasad_i82@yahoo.com> | 2006-11-03 14:33:38 +0000 |
|---|---|---|
| committer | Ramprasad B <ramprasad_i82@yahoo.com> | 2006-11-03 14:33:38 +0000 |
| commit | e7cd761fab021e71fdc79fef3f05bf540a79d3ab (patch) | |
| tree | 10f56b9ee1396b74ff2a43dffdfc368f3b4cfa0c /lisp/sort.el | |
| parent | 67cb63df8be152f058024038cd2bfacda053f142 (diff) | |
| download | emacs-e7cd761fab021e71fdc79fef3f05bf540a79d3ab.tar.gz | |
Installed [mark@mcs.vuw.ac.nz: sort-columns fails on NetBSD] patch
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/sort.el b/lisp/sort.el index 359067a4af3..10426fa5244 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -506,7 +506,10 @@ Use \\[untabify] to convert tabs to spaces before sorting." ;; 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))))) |