[elpa] externals/valign 1a614d2 101/198: Add missing with-silent-modifications form

[Stefan Monnier]

branch: externals/valign
commit 1a614d2508f1e5f5a58cde8dace81b256318da68
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Add missing with-silent-modifications form
    
    * valign.el (valign--clean-text-property, valign--align-separator-row,
    valign--separator-row-add-overlay): Add with-silent-modifications.
---
 valign.el | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/valign.el b/valign.el
index 37dee1e..98a262c 100644
--- a/valign.el
+++ b/valign.el
@@ -370,7 +370,8 @@ before event, ACTION is either 'entered or 'left."
 
 (defun valign--clean-text-property (beg end)
   "Clean up the display text property between BEG and END."
-  (put-text-property beg end 'cursor-sensor-functions nil)
+  (with-silent-modifications
+    (put-text-property beg end 'cursor-sensor-functions nil))
   ;; TODO ‘text-property-search-forward’ is Emacs 27 feature.
   (if (boundp 'text-property-search-forward)
       (save-excursion
@@ -414,16 +415,16 @@ right bar’s position."
         ;; Position of the right-most bar.
         (total-width (car (last pos-list))))
     (when (search-forward "|" nil t)
-      (with-silent-modifications
-        (valign--put-text-property p (1- (point)) total-width)
-        ;; Render the right bar.
-        (valign--maybe-render-bar (1- (point))))
+      (valign--put-text-property p (1- (point)) total-width)
+      ;; Render the right bar.
+      (valign--maybe-render-bar (1- (point)))
       ;; Put strike-through.
-      (let ((inherit (valign--table-face)))
-        (put-text-property p (1- (point)) 'face
-                           `(:strike-through t :inherit ,inherit))
-        (put-text-property p (1- (point)) 'font-lock-face
-                           `(:strike-through t :inherit ,inherit))))))
+      (with-silent-modifications
+        (let ((inherit (valign--table-face)))
+          (put-text-property p (1- (point)) 'face
+                             `(:strike-through t :inherit ,inherit))
+          (put-text-property p (1- (point)) 'font-lock-face
+                             `(:strike-through t :inherit ,inherit)))))))
 
 (defun valign--separator-row-add-overlay (beg end right-pos)
   "Add overlay to a separator row’s “cell”.
@@ -447,11 +448,12 @@ Assumes point is on the right bar or plus sign."
   ;; End of Markdown
   (valign--put-text-property beg end right-pos)
   ;; Put strike-through.
-  (let ((inherit (valign--table-face)))
-    (put-text-property beg end 'face
-                       `(:strike-through t :inherit ,inherit))
-    (put-text-property beg end 'font-lock-face
-                       `(:strike-through t :inherit ,inherit))))
+  (with-silent-modifications
+    (let ((inherit (valign--table-face)))
+      (put-text-property beg end 'face
+                         `(:strike-through t :inherit ,inherit))
+      (put-text-property beg end 'font-lock-face
+                         `(:strike-through t :inherit ,inherit)))))
 
 (cl-defmethod valign--align-separator-row
   (type (style (eql multi-column)) pos-list)