From f894b23d7fe3125b807b171fb779fed15d02be07 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 29 Aug 2014 20:10:15 +0200 Subject: [PATCH] * authors.el (authors): Use LOCALE argument of `string-collate-lessp'. --- admin/ChangeLog | 4 ++++ admin/authors.el | 8 +++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/admin/ChangeLog b/admin/ChangeLog index 17381568580..6ae82aac327 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,7 @@ +2014-08-29 Michael Albinus + + * authors.el (authors): Use LOCALE argument of `string-collate-lessp'. + 2014-08-28 Michael Albinus * authors.el (authors-aliases): Addition. diff --git a/admin/authors.el b/admin/authors.el index 1682788f2e8..248d0bf576a 100644 --- a/admin/authors.el +++ b/admin/authors.el @@ -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)) -- 2.11.4.GIT