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

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