[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))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org ccca8549a2: org-align-tags: Fix tag alignment in inlinetasks,
ELPA Syncer <=