(pgg-temp-buffer-show-function): Reuse existing visible

output window if one is available.  Tiny patch from Ville Skyttä
<scop@xemacs.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1ab69a..0d4c8b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-05-12  Simon Josefsson  <jas@extundo.com>
+
+       * pgg.el (pgg-temp-buffer-show-function): Reuse existing visible
+       output window if one is available.  Tiny patch from Ville Skytt\e,Ad\e(B
+       <scop@xemacs.org>.
+
 2003-05-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-agent.el (gnus-agent-expire-unagentized-dirs): Added

diff --git a/lisp/pgg.el b/lisp/pgg.el
index 82a3805..b51bf2c 100644 (file)
--- a/lisp/pgg.el
+++ b/lisp/pgg.el
@@ -78,7 +78,8 @@
        ,@body)))
 
 (defun pgg-temp-buffer-show-function (buffer)
-  (let ((window (split-window-vertically)))
+  (let ((window (or (get-buffer-window buffer 'visible)
+                   (split-window-vertically))))
     (set-window-buffer window buffer)
     (shrink-window-if-larger-than-buffer window)))