From b337078cf89b00fad334d48ac793cbc04164db50 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 31 Dec 2006 02:48:16 +0000 Subject: [PATCH] * epa.el (epa-display-info): Delete "*Info*" window. --- ChangeLog | 1 + epa.el | 2 ++ 2 files changed, 3 insertions(+) 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 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) -- 1.7.10.4