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

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