emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r105464: Fix previous change.


From: Richard Stallman
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r105464: Fix previous change.
Date: Mon, 15 Aug 2011 22:18:10 -0400
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 105464
committer: Richard Stallman <address@hidden>
branch nick: trunk
timestamp: Mon 2011-08-15 22:18:10 -0400
message:
  Fix previous change.
modified:
  lisp/epa.el
=== modified file 'lisp/epa.el'
--- a/lisp/epa.el       2011-08-16 02:06:32 +0000
+++ b/lisp/epa.el       2011-08-16 02:18:10 +0000
@@ -843,15 +843,15 @@
                   (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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]