branch: externals/valign
commit 2d7918b67569599d34fa77b830f5e85c472a000d
Author: Yuan Fu <[email protected]>
Commit: Yuan Fu <[email protected]>
Minor fixes
* valign.el (valign--at-table-p): Also include vbar character.
(valign--end-of-table): Fix typo.
---
valign.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/valign.el b/valign.el
index 9576e3f..ffbe887 100644
--- a/valign.el
+++ b/valign.el
@@ -480,7 +480,8 @@ TYPE must be 'org. Start at point, stop at LIMIT."
for charset = (cdr elt)
collect (valign-box-char 1 charset)
collect (valign-box-char 4 charset)
- collect (valign-box-char 7 charset))
+ collect (valign-box-char 7 charset)
+ collect (valign-box-char 'v charset))
'("|")))))
(defun valign--align-p ()
@@ -515,10 +516,9 @@ Assumes point is on a table."
(while (and (< (point) (point-max))
(valign--at-table-p))
(forward-line 1))
- (when (unless (eq (point) start))
+ (unless (<= (point) start)
(skip-chars-backward "\n"))
(when (< (point) start)
- (debug (point) start)
(error "End of table goes backwards"))))
(defun valign--put-overlay (beg end &rest props)
