diff options
| author | Christopher Schmidt <[email protected]> | 2012-07-25 11:43:12 +0200 |
|---|---|---|
| committer | Martin Rudalics <[email protected]> | 2012-07-25 11:43:12 +0200 |
| commit | f08088e354f5933e0df618c80ccbf2635bb45bef (patch) | |
| tree | ad26bd7d8e2d01abb29a3efacec78d15a4ee21da /lisp/emacs-lisp/pp.el | |
| parent | 8137e7b3165ea5dffc66a0a49f34716df0c00c2d (diff) | |
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).
Diffstat (limited to 'lisp/emacs-lisp/pp.el')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 48e0d6d6a2..30c16b51b9 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -110,7 +110,8 @@ after OUT-BUFFER-NAME." (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))) )))))) |