[elpa] externals/cape 5319e343bb 136/146: Improve repair function

[ELPA Syncer]

branch: externals/cape
commit 5319e343bbaf272ac0d0b376b5b37f09be800314
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Improve repair function
---
 cape.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/cape.el b/cape.el
index d1d525edd1..474a887b60 100644
--- a/cape.el
+++ b/cape.el
@@ -1020,15 +1020,16 @@ case sensitive instead."
   (save-mark-and-excursion
     (let ((beg (copy-marker (point)))
           (end (copy-marker (point) t)))
-    (unwind-protect
-        (pcase (funcall capf)
-          ((and res `(,beg ,end ,_table . ,_plist)
-                (guard (integer-or-marker-p beg))
-                (guard (integer-or-marker-p end)))
-           (ignore beg end)
-           res))
-      (when (/= beg end)
-        (delete-region beg end))))))
+      (with-silent-modifications
+        (unwind-protect
+            (pcase (funcall capf)
+              ((and res `(,beg ,end ,_table . ,_plist)
+                    (guard (integer-or-marker-p beg))
+                    (guard (integer-or-marker-p end)))
+               (ignore beg end)
+               res))
+          (when (/= beg end)
+            (delete-region beg end)))))))
 
 ;;;###autoload
 (defun cape-interactive-capf (capf)