Mercurial > emacs
changeset 100195:caf4353286ff
* w32-fns.el (w32-list-locales): Use `with-output-to-temp-buffer',
like most list-* commands.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 03 Dec 2008 16:36:59 +0000 |
| parents | f76e0ce31e62 |
| children | da8a0a35765c |
| files | lisp/ChangeLog lisp/w32-fns.el |
| diffstat | 2 files changed, 14 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Dec 03 16:17:46 2008 +0000 +++ b/lisp/ChangeLog Wed Dec 03 16:36:59 2008 +0000 @@ -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'.
--- a/lisp/w32-fns.el Wed Dec 03 16:17:46 2008 +0000 +++ b/lisp/w32-fns.el Wed Dec 03 16:36:59 2008 +0000 @@ -219,20 +219,17 @@ (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,