mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(sort-columns): If sort-fold-case it non-nil, invoke

Browse source 
sort(1) with the `-f' argument.
This commit is contained in:
Gerd Moellmann 2000-11-16 16:43:52 +00:00
parent e5effdcc20
commit c844fe9d3f
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/sort.el
View file

@ -493,18 +493,20 @@ Use \\[untabify] to convert tabs to spaces before sorting."
;; 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)