From: ueno <ueno>
Date: Fri, 26 May 2006 11:19:12 +0000 (+0000)
Subject: (epa--temp-buffer-show-function): Set buffer-read-only here.
X-Git-Tag: epg-0_0_2~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fffbbee7f742d104d1d7fc69c45547b794e6499d;p=elisp%2Fepg.git

(epa--temp-buffer-show-function): Set buffer-read-only here.
---

diff --git a/epa.el b/epa.el
index d60d2c1..43de23f 100644
--- a/epa.el
+++ b/epa.el
@@ -229,7 +229,7 @@ the separate window."
 
 (defun epa--temp-buffer-show-function (buffer)
   (save-selected-window
-    (let ((window (or (get-buffer-window epa-info-buffer)
+    (let ((window (or (get-buffer-window buffer)
 		      (progn
 			(select-window (get-largest-window))
 			(split-window-vertically)))))
@@ -241,7 +241,9 @@ the separate window."
       (let ((height (window-height)))
 	(if (> height epa-info-window-height)
 	    (shrink-window (- height epa-info-window-height)))
-	(set-window-start window (point-min))))))
+	(set-window-start window (point-min)))
+      (with-current-buffer buffer
+	(setq buffer-read-only t)))))
 
 (defun epa-display-verify-result (verify-result)
   (if epa-popup-info-window