# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1294858643 18000
# Node ID b6c07b4657554d7034d930b238a1e1c768fd8ea6
# Parent  7440cd13b8bf8e56e07b925f414119803ea1286e
* emacs-lisp/package.el (package--list-packages): Use switch-to-buffer.

diff -r 7440cd13b8bf -r b6c07b465755 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jan 12 17:19:36 2011 +0100
+++ b/lisp/ChangeLog	Wed Jan 12 13:57:23 2011 -0500
@@ -1,3 +1,8 @@
+2011-01-12  Chong Yidong  <cyd@stupidchicken.com>
+
+	* emacs-lisp/package.el (package--list-packages): Use
+	switch-to-buffer.
+
 2011-01-11  Johan Bockgård  <bojohan@gnu.org>
 
 	* emacs-lisp/unsafep.el (unsafep): Handle backquoted forms.
diff -r 7440cd13b8bf -r b6c07b465755 lisp/emacs-lisp/package.el
--- a/lisp/emacs-lisp/package.el	Wed Jan 12 17:19:36 2011 +0100
+++ b/lisp/emacs-lisp/package.el	Wed Jan 12 13:57:23 2011 -0500
@@ -1663,15 +1663,15 @@
 Optional PACKAGES is a list of names of packages (symbols) to
 list; the default is to display everything in `package-alist'."
   (require 'finder-inf nil t)
-  (with-current-buffer (get-buffer-create "*Packages*")
-    (package-menu-mode)
-    (set (make-local-variable 'package-menu-package-list) packages)
-    (set (make-local-variable 'package-menu-sort-key) nil)
-    (package--generate-package-list)
-    ;; It's okay to use pop-to-buffer here.  The package menu buffer
-    ;; has keybindings, and the user just typed `M-x list-packages',
-    ;; suggesting that they might want to use them.
-    (pop-to-buffer (current-buffer))))
+  (let ((buf (get-buffer-create "*Packages*")))
+    (with-current-buffer buf
+      (package-menu-mode)
+      (set (make-local-variable 'package-menu-package-list) packages)
+      (set (make-local-variable 'package-menu-sort-key) nil)
+      (package--generate-package-list))
+    ;; The package menu buffer has keybindings.  If the user types
+    ;; `M-x list-packages', that suggests it should become current.
+    (switch-to-buffer buf)))
 
 ;;;###autoload
 (defun list-packages ()