branch: externals/valign
commit 9a9a4a13bb3a00dc90ec1bce59917f78df5e7de0
Merge: 8618a44 f4235e7
Author: tumashu <[email protected]>
Commit: GitHub <[email protected]>
Merge branch 'master' into master
---
valign.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/valign.el b/valign.el
index b8ee520..f7f14bd 100644
--- a/valign.el
+++ b/valign.el
@@ -273,10 +273,11 @@ white space stretching to XPOS, a pixel x position."
;; Remove text property.
(put-text-property p tab-end 'display nil))))))
-(defun valign-initial-alignment (beg end)
+(defun valign-initial-alignment (beg end &optional force)
"Perform initial alignment for tables between BEG and END.
-Supposed to be called from jit-lock."
- (if (text-property-any beg end 'valign-init nil)
+Supposed to be called from jit-lock.
+Force align if FORCE non-nil."
+ (if (or force (text-property-any beg end 'valign-init nil))
(save-excursion
(goto-char beg)
(while (and (search-forward "|" nil t)
