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

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

[elpa] externals/org ccca8549a2: org-align-tags: Fix tag alignment in in


From: ELPA Syncer
Subject: [elpa] externals/org ccca8549a2: org-align-tags: Fix tag alignment in inlinetasks
Date: Sat, 20 Aug 2022 03:57:44 -0400 (EDT)

branch: externals/org
commit ccca8549a2fe3158ad41603eedc8ba427a240df5
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-align-tags: Fix tag alignment in inlinetasks
    
    * lisp/org.el (org-align-tags): Re-use 'line-prefix text property when
    `org-indent-mode' is enabled.  The old version partially copy-pasted
    the org-indent code and missed the new changes in inlinetask
    alignment.  The new approach should be robust against future
    org-indent changes.
    
    Fixes https://orgmode.org/list/25334.19025.107017.390781@gargle.gargle.HOWL
---
 lisp/org.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 8189a7ccdb..81fb8cb9d1 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11521,8 +11521,12 @@ visible part of the buffer."
   (let ((get-indent-column
         (lambda ()
           (let ((offset (if (bound-and-true-p org-indent-mode)
-                            (* (1- org-indent-indentation-per-level)
-                               (1- (org-current-level)))
+                             (save-excursion
+                               (org-back-to-heading-or-point-min)
+                               (length
+                                (get-text-property
+                                 (line-end-position)
+                                 'line-prefix)))
                           0)))
             (+ org-tags-column
                (if (> org-tags-column 0) (- offset) offset))))))



reply via email to

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