* pgg-gpg.el (pgg-gpg-process-region): Don't bind

[elisp/semi.git] / pgg.el

diff --git a/pgg.el b/pgg.el
index c254400..6975eef 100644 (file)
--- a/pgg.el
+++ b/pgg.el
@@ -165,10 +165,9 @@
        ,@body)))
 
 (defun pgg-temp-buffer-show-function (buffer)
-  (let ((window (split-window-vertically
-                (- (window-height)
-                   (/ (window-height) 5)))))
-    (set-window-buffer window buffer)))
+  (let ((window (split-window-vertically)))
+    (set-window-buffer window buffer)
+    (shrink-window-if-larger-than-buffer window)))
 
 (defun pgg-display-output-buffer (start end status)
   (if status