mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Fix previous change.

Browse Source
This commit is contained in:
Richard M. Stallman 2011-08-15 22:18:10 -04:00
parent fe38beefad
commit 44fede4d8e
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/epa.el
View File

@ -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)