diff options
| author | Richard M. Stallman | 2011-08-15 22:18:10 -0400 |
|---|---|---|
| committer | Richard M. Stallman | 2011-08-15 22:18:10 -0400 |
| commit | 44fede4d8e691afda7fdd35777793e1408fecca1 (patch) | |
| tree | d59825f3a21e3f025bfc0e8a1cc4f856db39b917 | |
| parent | fe38beefade6a9c382aa6f6c1dd98edbfe4bceca (diff) | |
| download | emacs-44fede4d8e691afda7fdd35777793e1408fecca1.tar.gz emacs-44fede4d8e691afda7fdd35777793e1408fecca1.zip | |
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: | |||
| 843 | (or coding-system-for-read | 843 | (or coding-system-for-read |
| 844 | (get-text-property start 'epa-coding-system-used) | 844 | (get-text-property start 'epa-coding-system-used) |
| 845 | 'undecided))) | 845 | 'undecided))) |
| 846 | (if (y-or-n-p "Replace the original text? ") | 846 | (if make-buffer-function |
| 847 | (let ((inhibit-read-only t)) | 847 | (with-current-buffer (funcall make-buffer-function) |
| 848 | (delete-region start end) | 848 | (let ((inhibit-read-only t)) |
| 849 | (goto-char start) | 849 | (insert plain))) |
| 850 | (insert plain)) | 850 | (if (y-or-n-p "Replace the original text? ") |
| 851 | (if make-buffer-function | 851 | (let ((inhibit-read-only t)) |
| 852 | (with-current-buffer (funcall make-buffer-function) | 852 | (delete-region start end) |
| 853 | (let ((inhibit-read-only t)) | 853 | (goto-char start) |
| 854 | (insert plain))) | 854 | (insert plain)) |
| 855 | (with-output-to-temp-buffer "*Temp*" | 855 | (with-output-to-temp-buffer "*Temp*" |
| 856 | (set-buffer standard-output) | 856 | (set-buffer standard-output) |
| 857 | (insert plain) | 857 | (insert plain) |