Commit faf603f3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(sort-fold-case): New variable.

(sort-subr): Bind case-fold-search from sort-fold-case.
parent b553cffa
......@@ -29,6 +29,9 @@
;;; Code:
(defvar sort-fold-case nil
"*Non-nil if the buffer sort functions should ignore case.")
(defun sort-subr (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun)
"General text sorting routine to divide buffer into records and sort them.
Arguments are REVERSE NEXTRECFUN ENDRECFUN &optional STARTKEYFUN ENDKEYFUN.
......@@ -69,7 +72,8 @@ same as ENDRECFUN."
(if messages (message "Finding sort keys..."))
(let* ((sort-lists (sort-build-lists nextrecfun endrecfun
startkeyfun endkeyfun))
(old (reverse sort-lists)))
(old (reverse sort-lists))
(case-fold-search sort-fold-case))
(if (null sort-lists)
()
(or reverse (setq sort-lists (nreverse sort-lists)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment