From 5319e343bbaf272ac0d0b376b5b37f09be800314 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Mon, 13 Dec 2021 00:27:25 +0100 Subject: Improve repair function --- cape.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/cape.el b/cape.el index d1d525e..474a887 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) -- cgit v1.0