branch: externals/valign
commit 745889d89a7d536df0fd59dfbac54a13f32adc34
Author: Yuan Fu <[email protected]>
Commit: Yuan Fu <[email protected]>
* valign.el (valign--at-table-p): Don't pass "" to 'char-to-string'.
---
valign.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/valign.el b/valign.el
index fef2611..c64e4cf 100644
--- a/valign.el
+++ b/valign.el
@@ -483,9 +483,10 @@ TYPE must be 'org. Start at point, stop at LIMIT."
(save-excursion
(beginning-of-line)
(skip-chars-forward " \t")
- ;; Org mode table.
+ ;; CHAR is the first character, CHAR 2 is the one after it.
(let ((char (char-to-string (char-after)))
- (char2 (char-to-string (or (char-after (1+ (point))) ""))))
+ (char2 (when-let ((char (char-after (1+ (point)))))
+ (char-to-string char))))
(or (equal char "|")
(cl-loop
for elt in valign-box-charset-alist
