From 011a014396e59cb621470309ff7865e3972a2953 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 11 Dec 2008 09:40:44 +0000 Subject: Move decoding of locale info from Lisp to C. * 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'. --- lisp/w32-fns.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) (limited to 'lisp/w32-fns.el') diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 5228e4f8fdf..c7284fafd36 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -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, -- cgit v1.2.1