# HG changeset patch
# User Ramprasad B <ramprasad_i82@yahoo.com>
# Date 1162564418 0
# Node ID d758e535681e7c8895743598631421b17fd5c432
# Parent  7791ba93093ce189430a0de418fd11b10a44ca81
Installed [mark@mcs.vuw.ac.nz: sort-columns fails on NetBSD] patch

diff -r 7791ba93093c -r d758e535681e lisp/sort.el
--- 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)))))