[Emacs-diffs] trunk r117782: admin/authors.el (authors): Fix last change so it works for MS-Windows as well.

[Eli Zaretskii]

------------------------------------------------------------
revno: 117782
revision-id: address@hidden
parent: address@hidden
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2014-08-30 12:22:53 +0300
message:
  admin/authors.el (authors): Fix last change so it works for MS-Windows as 
well.
modified:
  admin/ChangeLog                changelog-20091113204419-o5vbwnq5f7feedwu-2226
  admin/authors.el               authors.el-20091113204419-o5vbwnq5f7feedwu-1898

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2014-08-29 18:10:15 +0000
+++ b/admin/ChangeLog   2014-08-30 09:22:53 +0000
@@ -1,3 +1,8 @@
+2014-08-30  Eli Zaretskii  <address@hidden>
+
+       * authors.el (authors): Fix last change so it works for MS-Windows
+       as well.
+
 2014-08-29  Michael Albinus  <address@hidden>
 
        * authors.el (authors): Use LOCALE argument of `string-collate-lessp'.

=== modified file 'admin/authors.el'
--- a/admin/authors.el  2014-08-29 18:10:15 +0000
+++ b/admin/authors.el  2014-08-30 09:22:53 +0000
@@ -1315,7 +1315,10 @@
       (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))