[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/w32-fns.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/w32-fns.el,v |
Date: |
Fri, 17 Oct 2008 11:11:38 +0000 |
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)))