diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2008-12-03 16:36:59 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2008-12-03 16:36:59 +0000 |
commit | 555e23cf94dbb05ef4f7a69d04a43d4b0c4672a7 (patch) | |
tree | 810aea9f3bbd9672b02081b0cd2a27b0cfd5aa00 /lisp/w32-fns.el | |
parent | e4fe4569a9f4fb296dbcc154ea2b0a502f98b2b2 (diff) | |
download | emacs-555e23cf94dbb05ef4f7a69d04a43d4b0c4672a7.tar.gz |
* w32-fns.el (w32-list-locales): Use `with-output-to-temp-buffer',
like most list-* commands.
Diffstat (limited to 'lisp/w32-fns.el')
-rw-r--r-- | lisp/w32-fns.el | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 557681e86e5..5228e4f8fdf 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -219,20 +219,17 @@ You should set this to t when using a non-system shell.\n\n")))) (interactive) (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 (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))) - + (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"))) ;;; Setup Info-default-directory-list to include the info directory ;;; near where Emacs executable was installed. We used to set INFOPATH, |