[Emacs-diffs] Changes to emacs/lisp/w32-fns.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/10/17 11:11:37

Index: w32-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/w32-fns.el,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -b -r1.86 -r1.87
--- w32-fns.el  16 Oct 2008 15:28:31 -0000      1.86
+++ w32-fns.el  17 Oct 2008 11:11:37 -0000      1.87
@@ -217,18 +217,19 @@
 (defun w32-list-locales ()
   "List the name and id of all locales supported by Windows."
   (interactive)
-  (if (null w32-valid-locales)
-      (setq w32-valid-locales (w32-get-valid-locale-ids)))
+  (when (null w32-valid-locales)
+    (setq w32-valid-locales (sort (w32-get-valid-locale-ids) #'<)))
   (switch-to-buffer-other-window (get-buffer-create "*Supported Locales*"))
   (erase-buffer)
   (insert "LCID\tAbbrev\tFull name\n\n")
-  (insert (mapconcat
-          '(lambda (x)
+  (insert (decode-coding-string (mapconcat
+                                (lambda (x)
              (format "%d\t%s\t%s"
                      x
                      (w32-get-locale-info x)
                      (w32-get-locale-info x t)))
-          w32-valid-locales "\n"))
+                                w32-valid-locales "\n")
+                               locale-coding-system))
   (insert "\n")
   (goto-char (point-min)))