# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 974393032 0
# Node ID a77843a1f4e4b5beef5552363b9a52b9ec75bdb6
# Parent  8cc4c4ff3f8841c4e8fcfc0a0145af9fd693e63b
(sort-columns): If sort-fold-case it non-nil, invoke
sort(1) with the `-f' argument.

diff -r 8cc4c4ff3f88 -r a77843a1f4e4 lisp/sort.el
--- a/lisp/sort.el	Thu Nov 16 16:42:10 2000 +0000
+++ b/lisp/sort.el	Thu Nov 16 16:43:52 2000 +0000
@@ -493,18 +493,20 @@
 	  ;; Use the sort utility if we can; it is 4 times as fast.
 	  ;; Do not use it if there are any properties in the region,
 	  ;; since the sort utility would lose the properties.
-	  (call-process-region beg1 end1 "sort" t t nil
-			       (if reverse "-rt\n" "-t\n")
-			       (concat "+0." col-start)
-			       (concat "-0." col-end))
+	  (let ((sort-args (list (if reverse "-rt\n" "-t\n")
+				 (concat "+0." col-start)
+				 (concat "-0." col-end))))
+	    (when sort-fold-case
+	      (push "-f" sort-args))
+	    (apply #'call-process-region beg1 end1 "sort" t t nil sort-args))
 	;; On VMS, use Emacs's own facilities.
 	(save-excursion
 	  (save-restriction
 	    (narrow-to-region beg1 end1)
 	    (goto-char beg1)
 	    (sort-subr reverse 'forward-line 'end-of-line
-		       (function (lambda () (move-to-column col-start) nil))
-		       (function (lambda () (move-to-column col-end) nil)))))))))
+		       #'(lambda () (move-to-column col-start) nil)
+		       #'(lambda () (move-to-column col-end) nil))))))))
 
 ;;;###autoload
 (defun reverse-region (beg end)