[Emacs-diffs] /srv/bzr/emacs/trunk r109204: In pp-display-expression select old selected window only if it is still live (Bug#12034).

[martin rudalics]

------------------------------------------------------------
revno: 109204
author: Christopher Schmidt <address@hidden>
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Wed 2012-07-25 11:43:12 +0200
message:
  In pp-display-expression select old selected window only if it is still live 
(Bug#12034).
  
  * emacs-lisp/pp.el (pp-display-expression): Select old selected
  window only if it is still live (Bug#12034).
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/pp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-07-25 09:34:48 +0000
+++ b/lisp/ChangeLog    2012-07-25 09:43:12 +0000
@@ -1,3 +1,8 @@
+2012-07-25  Christopher Schmidt  <address@hidden>
+
+       * emacs-lisp/pp.el (pp-display-expression): Select old selected
+       window only if it is still live (Bug#12034).
+
 2012-07-25  Martin Rudalics  <address@hidden>
 
        * subr.el (redirect-frame-focus): Add advertised calling

=== modified file 'lisp/emacs-lisp/pp.el'
--- a/lisp/emacs-lisp/pp.el     2012-02-05 02:09:35 +0000
+++ b/lisp/emacs-lisp/pp.el     2012-07-25 09:43:12 +0000
@@ -110,7 +110,8 @@
                         (progn
                           (select-window window)
                           (run-hooks 'temp-buffer-show-hook))
-                      (select-window old-selected)
+                      (when (window-live-p old-selected)
+                        (select-window old-selected))
                       (message "See buffer %s." out-buffer-name)))
                 (message "%s" (buffer-substring (point-min) (point)))
                 ))))))