[nongnu] elpa/iedit 50748a5694 160/301: ensure iedit-skip-modification-once is t in case of errors

[ELPA Syncer]

branch: elpa/iedit
commit 50748a5694e2a9b2aff0b8a4ada7965648208430
Author: Le Wang <le.wang@agworld.com.au>
Commit: Le Wang <le.wang@agworld.com.au>

    ensure iedit-skip-modification-once is t in case of errors
---
 iedit-rect.el | 4 ++++
 iedit.el      | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/iedit-rect.el b/iedit-rect.el
index e51032fc8c..dd5f2b204a 100644
--- a/iedit-rect.el
+++ b/iedit-rect.el
@@ -93,6 +93,10 @@ Commands:
   (interactive (when (iedit-region-active)
                  (list (region-beginning)
                        (region-end))))
+
+  ;; enforce skip modification once, errors may happen to cause this to be
+  ;; unset.
+  (setq iedit-skip-modification-once t)
   (if iedit-rectangle-mode
       (iedit-rectangle-done)
     (iedit-barf-if-lib-active)
diff --git a/iedit.el b/iedit.el
index ebc8ffaeda..dc4acf50fc 100644
--- a/iedit.el
+++ b/iedit.el
@@ -375,6 +375,10 @@ Keymap used within overlays:
 
 (defun iedit-start (occurrence-regexp beg end)
   "Start Iedit mode for the `occurrence-regexp' in the current buffer."
+
+  ;; enforce skip modification once, errors may happen to cause this to be
+  ;; unset.
+  (setq iedit-skip-modification-once t)
   (setq iedit-unmatched-lines-invisible 
iedit-unmatched-lines-invisible-default)
   (setq iedit-initial-region (list beg end))
   (iedit-start2 occurrence-regexp beg end)