[nongnu] elpa/annotate 75d291a69f 141/372: - using 'annotate-with-inhibit-modification-hooks'.

[ELPA Syncer]

branch: elpa/annotate
commit 75d291a69fb4e10acbafdc7c7f11e4046cec71c7
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - using 'annotate-with-inhibit-modification-hooks'.
---
 annotate.el | 34 ++++++++++++++++------------------
 1 file changed, 16 insertions(+), 18 deletions(-)

diff --git a/annotate.el b/annotate.el
index 7b09c17c05..0e9fa9b0bf 100644
--- a/annotate.el
+++ b/annotate.el
@@ -857,24 +857,22 @@ to 'maximum-width'."
   "Cleans up annotation properties associated with a region."
   (when (> (buffer-size)
            0)
-    ;; inhibit infinite loop
-    (setq inhibit-modification-hooks t)
-    ;; copy undo list
-    (let ((saved-undo-list (copy-tree buffer-undo-list t)))
-      ;; inhibit property removal to the undo list (and empty it too)
-      (buffer-disable-undo)
-      (save-excursion
-        (goto-char end)
-        ;; go to the EOL where the
-        ;; annotated newline used to be
-        (end-of-line)
-        ;; strip dangling display property
-        (remove-text-properties
-         (point) (1+ (point)) '(display nil)))
-      ;; restore undo list
-      (setf buffer-undo-list saved-undo-list)
-      (buffer-enable-undo)
-      (setq inhibit-modification-hooks nil))))
+    (annotate-with-inhibit-modification-hooks
+     ;; copy undo list
+     (let ((saved-undo-list (copy-tree buffer-undo-list t)))
+       ;; inhibit property removal to the undo list (and empty it too)
+       (buffer-disable-undo)
+       (save-excursion
+         (goto-char end)
+         ;; go to the EOL where the
+         ;; annotated newline used to be
+         (end-of-line)
+         ;; strip dangling display property
+         (remove-text-properties
+          (point) (1+ (point)) '(display nil)))
+       ;; restore undo list
+       (setf buffer-undo-list saved-undo-list)
+       (buffer-enable-undo)))))
 
 (defun annotate--change-guard ()
   "Returns a `facespec` with an `insert-behind-hooks` property