From 385c37c8d18e44a219019b7a9b65f7067f9620b9 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 26 May 2006 11:23:16 +0000 Subject: [PATCH] with-temp-output-buffer always create new buffer. --- epa.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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))))) -- 1.7.10.4