emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/valign 0e77a02 164/198: Add some commands that suppress


From: Stefan Monnier
Subject: [elpa] externals/valign 0e77a02 164/198: Add some commands that suppresses auto alignment
Date: Tue, 1 Dec 2020 18:19:40 -0500 (EST)

branch: externals/valign
commit 0e77a02deb76859c2f98f64480c251bd6f56fbd4
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Add some commands that suppresses auto alignment
    
    * valign.el (valign-not-align-after-list): New variable.
    (valign-table-maybe): Change hard-code to variable.
---
 valign.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/valign.el b/valign.el
index 15c0109..fe01dcf 100644
--- a/valign.el
+++ b/valign.el
@@ -531,6 +531,15 @@ You need to restart valign mode for this setting to take 
effect."
   (interactive)
   (valign-table-maybe t))
 
+(defvar valign-not-align-after-list '(self-insert-command
+                                      org-self-insert-command
+                                      markdown-outdent-or-delete
+                                      org-delete-backward-char
+                                      backward-kill-word
+                                      delete-char
+                                      kill-word)
+  "Valign doesn’t align table after these commands.")
+
 (defun valign-table-maybe (&optional force)
   "Visually align the table at point.
 If FORCE non-nil, force align."
@@ -539,9 +548,8 @@ If FORCE non-nil, force align."
         (when (and (display-graphic-p)
                    (valign--at-table-p)
                    (or force
-                       (not (memq this-command
-                                  '(self-insert-command
-                                    org-self-insert-command)))))
+                       (not (memq (or this-command last-command)
+                                  valign-not-align-after-list))))
           (valign-table-1)))
     ((valign-bad-cell search-failed error)
      (valign--clean-text-property



reply via email to

[Prev in Thread] Current Thread [Next in Thread]