andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move decoding of locale info from Lisp to C.

Browse source 
* src/w32proc.c (Fw32_get_locale_info): Decode long form of locale name.

* lisp/w32-fns.el (w32-list-locales): Revert part of 2008-10-17 change;
  decoding of long locale info is now done in `w32-get-locale-info'.
This commit is contained in:
Juanma Barranquero 2008-12-11 09:40:44 +00:00
parent 3c309f345b
commit 011a014396
4 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-12-11 Juanma Barranquero <lekktu@gmail.com>
* w32-fns.el (w32-list-locales): Revert part of 2008-10-17 change;
decoding of long locale info is now done in `w32-get-locale-info'.
2008-12-11 Chong Yidong <cyd@stupidchicken.com>
* progmodes/ruby-mode.el: Fix auto-mode-alist entry.

14
lisp/w32-fns.el
View file

@ -221,15 +221,11 @@ You should set this to t when using a non-system shell.\n\n"))))
(setq w32-valid-locales (sort (w32-get-valid-locale-ids) #'<)))
(with-output-to-temp-buffer "*Supported Locales*"
(princ "LCID\tAbbrev\tFull name\n\n")
(princ (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))
(princ "\n")))
(dolist (locale w32-valid-locales)
(princ (format "%d\t%s\t%s\n"
locale
(w32-get-locale-info locale)
(w32-get-locale-info locale t))))))
;;; Setup Info-default-directory-list to include the info directory
;;; near where Emacs executable was installed. We used to set INFOPATH,

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
2008-12-11 Juanma Barranquero <lekktu@gmail.com>
* w32proc.c (Fw32_get_locale_info): Decode long form of locale name.
2008-12-11 Juanma Barranquero <lekktu@gmail.com>
* process.c (Fsystem_process_attributes, syms_of_process):

2
src/w32proc.c
View file

@ -1983,7 +1983,7 @@ If LCID (a 16-bit number) is not a valid locale, the result is nil. */)
LOCALE_SLANGUAGE | LOCALE_USE_CP_ACP,
full_name, sizeof (full_name));
if (got_full)
return build_string (full_name);
return DECODE_SYSTEM (build_string (full_name));
}
else if (NUMBERP (longform))
{