From: ueno <ueno>
Date: Sun, 31 Dec 2006 02:48:16 +0000 (+0000)
Subject: * epa.el (epa-display-info): Delete "*Info*" window.
X-Git-Tag: epg-0_0_10~50
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b337078cf89b00fad334d48ac793cbc04164db50;p=elisp%2Fepg.git

* epa.el (epa-display-info): Delete "*Info*" window.
---

diff --git a/ChangeLog b/ChangeLog
index c423628..a7d3b2d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -8,6 +8,7 @@
 	(epa-import-armor-in-region): New command.
 	(epa-import): New command.
 	(epa-decrypt-region): Confirm user to replace the region.
+	(epa-display-info): Delete "*Info*" window.
 
 2006-12-29  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/epa.el b/epa.el
index ca47d02..22d8bef 100644
--- a/epa.el
+++ b/epa.el
@@ -561,6 +561,8 @@ If SECRET is non-nil, list secret keys instead of public keys."
       (save-selected-window
 	(unless epa-info-buffer
 	  (setq epa-info-buffer (generate-new-buffer "*Info*")))
+	(if (get-buffer-window epa-info-buffer)
+	    (delete-window (get-buffer-window epa-info-buffer)))
 	(save-excursion
 	  (set-buffer epa-info-buffer)
 	  (let ((inhibit-read-only t)