admin/authors.el (authors): Fix last change so it works for MS-Windows as well.

2 files changed, 9 insertions, 1 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 6ae82aac327..f4bfa73911c 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,8 @@
+2014-08-30  Eli Zaretskii  <eliz@gnu.org>
+
+        * authors.el (authors): Fix last change so it works for MS-Windows
+        as well.
+
 2014-08-29  Michael Albinus  <michael.albinus@gmx.de>
 
         * authors.el (authors): Use LOCALE argument of `string-collate-lessp'.
diff --git a/admin/authors.el b/admin/authors.el
index 248d0bf576a..cf989e11d95 100644
--- a/admin/authors.el
+++ b/admin/authors.el
@@ -1315,7 +1315,10 @@ list of their contributions.\n")
       (setq authors-author-list
             (sort authors-author-list
                   (lambda (a b)
-                    (string-collate-lessp (car a) (car b) "en_US.UTF-8"))))
+                    (string-collate-lessp (car a) (car b)
+                                          (if (eq system-type 'windows-nt)
+                                              "enu_USA"
+                                            "en_US.UTF-8")))))
       (dolist (a authors-author-list)
         (let ((author (car a))
               (wrote (nth 1 a))