[Emacs-diffs] emacs-24 r116840: * lisp/emacs-lisp/package.el (package-show-package-list): If the buffer

[Dmitry Gutov]

------------------------------------------------------------
revno: 116840
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Gutov <address@hidden>
branch nick: emacs-24
timestamp: Sun 2014-03-23 10:35:56 +0200
message:
  * lisp/emacs-lisp/package.el (package-show-package-list): If the buffer
  is already displayed in another window, switch to that window.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/package.el     package.el-20100617020707-ybavz666awsxwin6-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-23 06:16:14 +0000
+++ b/lisp/ChangeLog    2014-03-23 08:35:56 +0000
@@ -1,3 +1,8 @@
+2014-03-23  Dmitry Gutov  <address@hidden>
+
+       * emacs-lisp/package.el (package-show-package-list): If the buffer
+       is already displayed in another window, switch to that window.
+
 2014-03-21  Daniel Colascione  <address@hidden>
 
        * mail/emacsbug.el (report-emacs-bug): Include memory usage

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2014-03-22 08:43:30 +0000
+++ b/lisp/emacs-lisp/package.el        2014-03-23 08:35:56 +0000
@@ -2117,11 +2117,14 @@
 shown."
   (interactive)
   (require 'finder-inf nil t)
-  (let ((buf (get-buffer-create "*Packages*")))
+  (let* ((buf (get-buffer-create "*Packages*"))
+         (win (get-buffer-window buf)))
     (with-current-buffer buf
       (package-menu-mode)
       (package-menu--generate nil packages keywords))
-    (switch-to-buffer buf)))
+    (if win
+        (select-window win)
+      (switch-to-buffer buf))))
 
 ;; package-menu--generate rebinds "q" on the fly, so we have to
 ;; hard-code the binding in the doc-string here.