[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog w32-fns.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog w32-fns.el |
Date: |
Wed, 03 Dec 2008 16:37:01 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 08/12/03 16:37:01
Modified files:
lisp : ChangeLog w32-fns.el
Log message:
* w32-fns.el (w32-list-locales): Use `with-output-to-temp-buffer',
like most list-* commands.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14907&r2=1.14908
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/w32-fns.el?cvsroot=emacs&r1=1.88&r2=1.89
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14907
retrieving revision 1.14908
diff -u -b -r1.14907 -r1.14908
--- ChangeLog 3 Dec 2008 16:17:46 -0000 1.14907
+++ ChangeLog 3 Dec 2008 16:36:59 -0000 1.14908
@@ -1,5 +1,8 @@
2008-12-03 Juanma Barranquero <address@hidden>
+ * 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'.
Index: w32-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/w32-fns.el,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -b -r1.88 -r1.89
--- w32-fns.el 14 Nov 2008 13:05:31 -0000 1.88
+++ w32-fns.el 3 Dec 2008 16:37:00 -0000 1.89
@@ -219,10 +219,9 @@
(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
+ (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
@@ -230,9 +229,7 @@
(w32-get-locale-info x t)))
w32-valid-locales "\n")
locale-coding-system))
- (insert "\n")
- (goto-char (point-min)))
-
+ (princ "\n")))
;;; Setup Info-default-directory-list to include the info directory
;;; near where Emacs executable was installed. We used to set INFOPATH,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog w32-fns.el,
Juanma Barranquero <=