* pgg.el (pgg-temp-buffer-show-function): Use

`shrink-window-if-larger-than-buffer'.

diff --git a/ChangeLog b/ChangeLog
index 0b58de0..5992550 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2000-02-21   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
+       * pgg.el (pgg-temp-buffer-show-function): Use
+       `shrink-window-if-larger-than-buffer'.
+
        * pgg-gpg.el (pgg-gpg-process-region): Fix cleanup form.
 
        * pgg-pgp.el (pgg-pgp-process-region): Ditto.

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