branch: externals/valign
commit e555277590f51e5c68fbf0274a02b9c7ec07e3b1
Author: Yuan Fu <[email protected]>
Commit: Yuan Fu <[email protected]>
Add with-silent-modification
* valign.el (valign--clean-text-property, valign-initial-alignment,
valign--align-separator-row, valign--separator-row-add-overlay):
Add with-silent-modification.
---
valign.el | 20 ++++++++++++--------
1 file changed, 12 insertions(+), 8 deletions(-)
diff --git a/valign.el b/valign.el
index 521d6e7..53e5c86 100644
--- a/valign.el
+++ b/valign.el
@@ -256,9 +256,10 @@ white space stretching to XPOS, a pixel x position."
(and (consp p)
(eq (car p) 'space)))))
(< (point) end))
- (put-text-property (prop-match-beginning match)
- (prop-match-end match)
- 'display nil))))
+ (with-silent-modifications
+ (put-text-property (prop-match-beginning match)
+ (prop-match-end match)
+ 'display nil)))))
(let (display tab-end (p beg) last-p)
(while (not (eq p last-p))
(setq last-p p
@@ -271,7 +272,8 @@ white space stretching to XPOS, a pixel x position."
(setq tab-end (next-single-char-property-change
p'display nil end))
;; Remove text property.
- (put-text-property p tab-end 'display nil))))))
+ (with-silent-modifications
+ (put-text-property p tab-end 'display nil)))))))
(defun valign-initial-alignment (beg end &optional force)
"Perform initial alignment for tables between BEG and END.
@@ -284,7 +286,8 @@ Force align if FORCE non-nil."
(< (point) end))
(valign-table)
(valign--end-of-table))
- (put-text-property beg (point) 'valign-init t)))
+ (with-silent-modifications
+ (put-text-property beg (point) 'valign-init t))))
(cons 'jit-lock-bounds (cons beg end)))
(defun valign--align-separator-row (total-width)
@@ -294,8 +297,8 @@ pixel width counting from the left of the left bar to the
left of
the right bar."
(let ((p (point)))
(when (search-forward "|" nil t)
- (valign--put-text-property
- p (1- (point)) total-width)
+ (with-silent-modifications
+ (valign--put-text-property p (1- (point)) total-width))
;; Why do we have to add an overlay? Because text property
;; doens’t work. First, font-lock overwrites what ever face
;; property you add; second, even if you are sneaky and added a
@@ -314,7 +317,8 @@ Cell ranges from BEG to END, the pixel position RIGHT-POS
marks
the position for the right bar (“|”)."
;; Make “+” look like “|”
(when (eq (char-after end) ?+)
- (put-text-property end (1+ end) 'display "|"))
+ (with-silent-modifications
+ (put-text-property end (1+ end) 'display "|")))
(valign--put-text-property beg end right-pos)
;; Why do we have to add an overlay? Because text property
;; doens’t work. First, font-lock overwrites what ever face
