branch: externals/cape
commit 5319e343bbaf272ac0d0b376b5b37f09be800314
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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)
