From: ueno <ueno>
Date: Mon, 21 Feb 2000 15:27:43 +0000 (+0000)
Subject: * pgg.el (pgg-temp-buffer-show-function): Use
X-Git-Tag: emiko-1_13_11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b554df0a9bda0ca7620c5bfac647a98b71c2d893;p=elisp%2Fsemi.git

* pgg.el (pgg-temp-buffer-show-function): Use
`shrink-window-if-larger-than-buffer'.
---

diff --git a/ChangeLog b/ChangeLog
index 0b58de0..5992550 100644
--- 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
--- 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