diff options
author | Richard Stallman <rms@gnu.org> | 2011-08-15 22:18:10 -0400 |
---|---|---|
committer | Richard Stallman <rms@gnu.org> | 2011-08-15 22:18:10 -0400 |
commit | 39ec2597ce501e5dbc84202a1c853e25d1d5b2d4 (patch) | |
tree | 7dc5d2f6a7b0aead43cbad28137feba2c28f8f4e | |
parent | 0c9906129f8004248db484ce806a38e21905957c (diff) | |
download | emacs-39ec2597ce501e5dbc84202a1c853e25d1d5b2d4.tar.gz |
Fix previous change.
-rw-r--r-- | lisp/epa.el | 18 |
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) |