procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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'.
This commit is contained in:
Juanma Barranquero 2008-10-17 11:11:34 +00:00
parent 69caa40ac5
commit ac62ec165a
2 changed files with 18 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
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.

19
lisp/w32-fns.el
View file

@ -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)))