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

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 17381568580b148104e49dca74b4f8babef3a440..6ae82aac327f5331502f1bc1a07d79af84687687 100644 (file)
--- 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 1682788f2e83205361accd50729ea864db4300fb..248d0bf576a88e916d7f9e7445102576558721ef 100644 (file)
--- 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))