From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 3 Dec 2008 16:36:59 +0000 (+0000)
Subject: * w32-fns.el (w32-list-locales): Use `with-output-to-temp-buffer',
X-Git-Tag: emacs-pretest-23.0.90~1295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=555e23cf94dbb05ef4f7a69d04a43d4b0c4672a7;p=emacs.git

* w32-fns.el (w32-list-locales): Use `with-output-to-temp-buffer',
  like most list-* commands.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 707b4bc3616..674ee0959a0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-12-03  Juanma Barranquero  <lekktu@gmail.com>
 
+	* w32-fns.el (w32-list-locales): Use `with-output-to-temp-buffer',
+	like most list-* commands.
+
 	* international/mule-diag.el (unicodedata-file, unicode-data): Remove.
 	They already exist in descr-text.el as `describe-char-unicodedata-file'
 	and `describe-char-unicode-data'.
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,