mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

* authors.el (authors): Use LOCALE argument of `string-collate-lessp'.

Browse Source
This commit is contained in:
Michael Albinus 2014-08-29 20:10:15 +02:00
parent b579ae53e4
commit f894b23d7f
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
admin/ChangeLog
View File

@ -1,3 +1,7 @@
2014-08-29 Michael Albinus <michael.albinus@gmx.de>
* authors.el (authors): Use LOCALE argument of `string-collate-lessp'.
2014-08-28 Michael Albinus <michael.albinus@gmx.de>
* authors.el (authors-aliases): Addition.

8
admin/authors.el
View File

@ -1313,11 +1313,9 @@ list of their contributions.\n")
(let (authors-author-list)
(maphash #'authors-add-to-author-list table)
(setq authors-author-list
(let ((process-environment (cons "LC_COLLATE=en_US.UTF-8"
process-environment)))
(sort authors-author-list
(lambda (a b)
(string-collate-lessp (car a) (car b))))))
(sort authors-author-list
(lambda (a b)
(string-collate-lessp (car a) (car b) "en_US.UTF-8"))))
(dolist (a authors-author-list)
(let ((author (car a))
(wrote (nth 1 a))