From: Michael Albinus Date: Fri, 29 Aug 2014 18:10:15 +0000 (+0200) Subject: * authors.el (authors): Use LOCALE argument of `string-collate-lessp'. X-Git-Tag: emacs-25.0.90~2635^2~679^2~399 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f894b23d7fe3125b807b171fb779fed15d02be07;p=emacs.git * authors.el (authors): Use LOCALE argument of `string-collate-lessp'. --- diff --git a/admin/ChangeLog b/admin/ChangeLog index 17381568580..6ae82aac327 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,7 @@ +2014-08-29 Michael Albinus + + * authors.el (authors): Use LOCALE argument of `string-collate-lessp'. + 2014-08-28 Michael Albinus * authors.el (authors-aliases): Addition. diff --git a/admin/authors.el b/admin/authors.el index 1682788f2e8..248d0bf576a 100644 --- 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))