[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/valign 6b0345e 03/15: Make at-table-p testing stricter
From: |
Stefan Monnier |
Subject: |
[elpa] externals/valign 6b0345e 03/15: Make at-table-p testing stricter |
Date: |
Tue, 16 Mar 2021 00:01:27 -0400 (EDT) |
branch: externals/valign
commit 6b0345e29cdec8526c9c19b73bdea53295ec998e
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>
Make at-table-p testing stricter
* valign.el (valign--at-table-p): Tighten check for table.el tables.
---
valign.el | 33 ++++++++++++++++++++++-----------
1 file changed, 22 insertions(+), 11 deletions(-)
diff --git a/valign.el b/valign.el
index 3307f31..71c008d 100644
--- a/valign.el
+++ b/valign.el
@@ -483,17 +483,28 @@ TYPE must be 'org. Start at point, stop at LIMIT."
(save-excursion
(beginning-of-line)
(skip-chars-forward " \t")
- (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))))))
+ ;; Org mode table.
+ (let ((char (char-to-string (char-after)))
+ (char2 (char-to-string (or (char-after (1+ (point))) ""))))
+ (or (equal char "|")
+ (cl-loop
+ for elt in valign-box-charset-alist
+ for charset = (cdr elt)
+ if (or (equal char (valign-box-char 'v charset))
+ (and (equal char
+ (valign-box-char 1 charset))
+ (member char2
+ (list (valign-box-char 2 charset)
+ (valign-box-char 3 charset)
+ (valign-box-char 'h charset))))
+ (and (equal char
+ (valign-box-char 7 charset))
+ (member char2
+ (list (valign-box-char 8 charset)
+ (valign-box-char 9 charset)
+ (valign-box-char 'h charset)))))
+ return t
+ finally return nil)))))
(defun valign--align-p ()
"Return non-nil if we should align the table at point."
- [elpa] externals/valign updated (223407d -> 2035143), Stefan Monnier, 2021/03/16
- [elpa] externals/valign b000cca 02/15: Fix alignment for table.el tables, Stefan Monnier, 2021/03/16
- [elpa] externals/valign 6b0345e 03/15: Make at-table-p testing stricter,
Stefan Monnier <=
- [elpa] externals/valign 49209b4 05/15: * README-CN.org: Touch up on phrasing., Stefan Monnier, 2021/03/16
- [elpa] externals/valign 2035143 15/15: * README-CN.org (自定义): Add descriptions for some variables., Stefan Monnier, 2021/03/16
- [elpa] externals/valign acdb551 01/15: Really really fix org-indent and line-number problem, Stefan Monnier, 2021/03/16
- [elpa] externals/valign b6a0dcd 04/15: Add Chinese README, Stefan Monnier, 2021/03/16
- [elpa] externals/valign e8a5ce1 07/15: Remove note about org-indent-mode + line-numbers-mode, Stefan Monnier, 2021/03/16
- [elpa] externals/valign f5db1ef 06/15: ; * README.org: Change link to Chinese README., Stefan Monnier, 2021/03/16
- [elpa] externals/valign db5145a 14/15: * README.org (Customization): Add description for some variables., Stefan Monnier, 2021/03/16
- [elpa] externals/valign ccbcc1c 10/15: Fix alignment for Unicode tables, Stefan Monnier, 2021/03/16
- [elpa] externals/valign 16ff947 08/15: Patch an outline bug., Stefan Monnier, 2021/03/16
- [elpa] externals/valign bcfb414 13/15: Improve parse error report, Stefan Monnier, 2021/03/16