with-temp-output-buffer always create new buffer.
authorueno <ueno>
Fri, 26 May 2006 11:23:16 +0000 (11:23 +0000)
committerueno <ueno>
Fri, 26 May 2006 11:23:16 +0000 (11:23 +0000)
epa.el

diff --git a/epa.el b/epa.el
index 43de23f..ee6a5a3 100644 (file)
--- 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)))))