[Emacs-diffs] trunk r117772: * authors.el (authors): Use LOCALE argument of `string-collate-lessp'.

[Michael Albinus]

------------------------------------------------------------
revno: 117772
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2014-08-29 20:10:15 +0200
message:
  * authors.el (authors): Use LOCALE argument of `string-collate-lessp'.
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 07:05:23 +0000
+++ b/admin/ChangeLog   2014-08-29 18:10:15 +0000
@@ -1,3 +1,7 @@
+2014-08-29  Michael Albinus  <address@hidden>
+
+       * authors.el (authors): Use LOCALE argument of `string-collate-lessp'.
+
 2014-08-28  Michael Albinus  <address@hidden>
 
        * authors.el (authors-aliases): Addition.

=== modified file 'admin/authors.el'
--- a/admin/authors.el  2014-08-28 01:59:29 +0000
+++ b/admin/authors.el  2014-08-29 18:10:15 +0000
@@ -1313,11 +1313,9 @@
     (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))