From: ueno <ueno>
Date: Fri, 26 May 2006 11:23:16 +0000 (+0000)
Subject: with-temp-output-buffer always create new buffer.
X-Git-Tag: epg-0_0_2~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=385c37c8d18e44a219019b7a9b65f7067f9620b9;p=elisp%2Fepg.git

with-temp-output-buffer always create new buffer.
---

diff --git a/epa.el b/epa.el
index 43de23f..ee6a5a3 100644
--- a/epa.el
+++ b/epa.el
@@ -165,7 +165,6 @@ the separate window."
 (defvar epa-key-buffer-alist nil)
 (defvar epa-key nil)
 (defvar epa-list-keys-arguments nil)
-(defvar epa-info-buffer nil)
 
 (defvar epa-keys-mode-map
   (let ((keymap (make-sparse-keymap)))
@@ -248,9 +247,7 @@ the separate window."
 (defun epa-display-verify-result (verify-result)
   (if epa-popup-info-window
       (let ((temp-buffer-show-function #'epa--temp-buffer-show-function))
-	(unless epa-info-buffer
-	  (setq epa-info-buffer (generate-new-buffer "*Info*")))
-	(with-output-to-temp-buffer epa-info-buffer
+	(with-output-to-temp-buffer "*Info*"
 	  (save-excursion
 	    (set-buffer standard-output)
 	    (insert (epg-verify-result-to-string verify-result)))))