Installed [mark@mcs.vuw.ac.nz: sort-columns fails on NetBSD] patch

diff --git a/lisp/sort.el b/lisp/sort.el
index 359067a4af356583630508200c68dd203cd3fdf8..10426fa5244a55c1679a5b0adb4985c1e79edfbc 100644 (file)
--- 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)))))