branch: externals/valign
commit 03da172ecc0ae464e0ca9a26a268e9a2e2276b27
Author: Yuan Fu <[email protected]>
Commit: Yuan Fu <[email protected]>
Various fixes
* valign.el (Require): Add pcase.el
(valign-separator-row-style): Fix wrong initial value.
(valign-table): Add limit to search.
---
valign.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/valign.el b/valign.el
index 8180f69..183ddbd 100644
--- a/valign.el
+++ b/valign.el
@@ -23,6 +23,7 @@
;;
(require 'cl-lib)
+(require 'pcase)
;;; Backstage
@@ -274,7 +275,7 @@ the position for the right bar (“|”)."
;;; Userland
-(defcustom valign-separator-row-style 'multi-col
+(defcustom valign-separator-row-style 'multi-column
"The style of the separator row of a table.
Valign can render it as “| |”
or as “|-----|-----|”. Set this option to 'single-column
@@ -356,13 +357,13 @@ for the former, and 'multi-column for the latter."
('multi-column
(let ((p (point))
(col-idx 0))
- (while (search-forward "+" nil t)
+ (while (search-forward "+" end t)
(valign--separator-row-add-overlay
p (1- (point)) (or (nth col-idx (reverse rev-list)) 0))
(cl-incf col-idx)
(setq p (point)))
;; Last column
- (when (search-forward "|" nil t)
+ (when (search-forward "|" end t)
(valign--separator-row-add-overlay
p (1- (point))
(or (nth col-idx (reverse rev-list)) 0)))))))))
