summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard Stallman <rms@gnu.org>2011-08-15 22:18:10 -0400
committerRichard Stallman <rms@gnu.org>2011-08-15 22:18:10 -0400
commit39ec2597ce501e5dbc84202a1c853e25d1d5b2d4 (patch)
tree7dc5d2f6a7b0aead43cbad28137feba2c28f8f4e
parent0c9906129f8004248db484ce806a38e21905957c (diff)
downloademacs-39ec2597ce501e5dbc84202a1c853e25d1d5b2d4.tar.gz
Fix previous change.
-rw-r--r--lisp/epa.el18
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/epa.el b/lisp/epa.el
index 8ab9e6006e6..f0ec1ece0d1 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -843,15 +843,15 @@ For example:
(or coding-system-for-read
(get-text-property start 'epa-coding-system-used)
'undecided)))
- (if (y-or-n-p "Replace the original text? ")
- (let ((inhibit-read-only t))
- (delete-region start end)
- (goto-char start)
- (insert plain))
- (if make-buffer-function
- (with-current-buffer (funcall make-buffer-function)
- (let ((inhibit-read-only t))
- (insert plain)))
+ (if make-buffer-function
+ (with-current-buffer (funcall make-buffer-function)
+ (let ((inhibit-read-only t))
+ (insert plain)))
+ (if (y-or-n-p "Replace the original text? ")
+ (let ((inhibit-read-only t))
+ (delete-region start end)
+ (goto-char start)
+ (insert plain))
(with-output-to-temp-buffer "*Temp*"
(set-buffer standard-output)
(insert plain)