Commit ac62ec16 authored by Juanma Barranquero's avatar Juanma Barranquero

* w32-fns.el (w32-list-locales): Decode output of `w32-get-locale-info'

  according to `locale-coding-system'.  (This fixes trivial bug reported
  as part of bug#1179).
  Sort list of valid locale ids (EnumSystemLocales does not guarantee any
  particular order).  Use `when'.
parent 69caa40a
2008-10-17 Juanma Barranquero <lekktu@gmail.com>
* w32-fns.el (w32-list-locales): Decode output of `w32-get-locale-info'
according to `locale-coding-system'. (This fixes trivial bug reported
as part of bug#1179).
Sort list of valid locale ids (EnumSystemLocales does not guarantee any
particular order). Use `when'.
2008-10-16 Juanma Barranquero <lekktu@gmail.com>
* w32-fns.el (w32-check-shell-configuration): Doc fix.
......
......@@ -217,18 +217,19 @@ You should set this to t when using a non-system shell.\n\n"))))
(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)
(format "%d\t%s\t%s"
x
(w32-get-locale-info x)
(w32-get-locale-info x t)))
w32-valid-locales "\n"))
(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")
locale-coding-system))
(insert "\n")
(goto-char (point-min)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment