mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(sort-fold-case): New variable.

Browse Source 
(sort-subr): Bind case-fold-search from sort-fold-case.
This commit is contained in:
Richard M. Stallman 1993-06-01 20:35:33 +00:00
parent b553cffa92
commit faf603f3a3
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/sort.el
View File

@ -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)))