[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/valign 740d507 04/11: * valign.el (valign--at-table-p):
From: |
Stefan Monnier |
Subject: |
[elpa] externals/valign 740d507 04/11: * valign.el (valign--at-table-p): Exclude +<space> pattern. |
Date: |
Thu, 28 Jan 2021 00:10:24 -0500 (EST) |
branch: externals/valign
commit 740d5072190ebc7dd75a1ae8c4f8d3cb99faa4fe
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>
* valign.el (valign--at-table-p): Exclude +<space> pattern.
---
valign.el | 20 +++++++++++---------
1 file changed, 11 insertions(+), 9 deletions(-)
diff --git a/valign.el b/valign.el
index 2c6d6e7..df3c0fa 100644
--- a/valign.el
+++ b/valign.el
@@ -476,15 +476,17 @@ TYPE must be 'org. Start at point, stop at LIMIT."
(save-excursion
(beginning-of-line)
(skip-chars-forward " \t")
- (member (char-to-string (char-after))
- (append
- (cl-loop for elt in valign-box-charset-alist
- 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 'v charset))
- '("|")))))
+ (or (eq (char-after) ?|)
+ (and (member (char-to-string (char-after))
+ (cl-loop for elt in valign-box-charset-alist
+ 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 'v charset)))
+ ;; Exclude +<space> (someone uses + as a bullet), not
+ ;; bullet proof but good enough for now.
+ (not (eq (char-after (1+ (point))) ?\s))))))
(defun valign--align-p ()
"Return non-nil if we should align the table at point."
- [elpa] externals/valign 4742db5 01/11: * valign.el (valign--cell-content-config): Add position info to error report., (continued)
- [elpa] externals/valign 4742db5 01/11: * valign.el (valign--cell-content-config): Add position info to error report., Stefan Monnier, 2021/01/28
- [elpa] externals/valign 9a9e778 02/11: * valign.el: Fix copyright line., Stefan Monnier, 2021/01/28
- [elpa] externals/valign be86359 10/11: * valign.el: Bump to 3.1.0., Stefan Monnier, 2021/01/28
- [elpa] externals/valign a880928 08/11: ; * README.org: Fix typo., Stefan Monnier, 2021/01/28
- [elpa] externals/valign 1c2c3b0 05/11: Add variable 'valign-signal-parse-error', Stefan Monnier, 2021/01/28
- [elpa] externals/valign 223407d 11/11: Merge remote-tracking branch 'elpa/externals/valign', Stefan Monnier, 2021/01/28
- [elpa] externals/valign 09f87c1 07/11: ; * test.org: New tests, Stefan Monnier, 2021/01/28
- [elpa] externals/valign 1d2ecd2 09/11: * valign.el (valign--pixel-width-from-to): Return 0 if FROM = TO., Stefan Monnier, 2021/01/28
- [elpa] externals/valign a0ff453 03/11: * README.org (Install with quelpa): Update Install instruction., Stefan Monnier, 2021/01/28
- [elpa] externals/valign 0fe9416 06/11: Add valign-max-table-size, Stefan Monnier, 2021/01/28
- [elpa] externals/valign 740d507 04/11: * valign.el (valign--at-table-p): Exclude +<space> pattern.,
Stefan Monnier <=