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

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

[elpa] externals/valign c4ddfb3 095/198: Fix org-flag-region advice


From: Stefan Monnier
Subject: [elpa] externals/valign c4ddfb3 095/198: Fix org-flag-region advice
Date: Tue, 1 Dec 2020 18:19:24 -0500 (EST)

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

    Fix org-flag-region advice
    
    * valign.el: (valign--flag-region-advice): Change to force align.
    (valign-mode): Change flag-region advice to :after.
---
 valign.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/valign.el b/valign.el
index 9f3c1bf..97daf84 100644
--- a/valign.el
+++ b/valign.el
@@ -638,10 +638,8 @@ Force align if FORCE non-nil."
 (defun valign--flag-region-advice (beg end flag &optional _)
   "Valign hook, realign table between BEG and END.
 FLAG is the same as in ‘org-flag-region’."
-  (when (and valign-mode (not flag)
-             (text-property-any beg end 'invisible 'org-link))
-    (with-silent-modifications
-      (put-text-property beg end 'valign-init nil))))
+  (when (and valign-mode (not flag))
+    (valign-region beg end)))
 
 (defun valign--tab-advice (&rest _)
   "Force realign after tab so user can force realign."
@@ -696,7 +694,7 @@ FLAG is the same as in ‘org-flag-region’."
                       org-toggle-inline-images))
           (advice-add fn :after #'valign--buffer-advice))
         (dolist (fn '(org-flag-region outline-flag-region))
-          (advice-add fn :before #'valign--flag-region-advice))
+          (advice-add fn :after #'valign--flag-region-advice))
         (jit-lock-refontify))
     (remove-hook 'jit-lock-functions #'valign-region t)
     (valign-reset-buffer)))



reply via email to

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