[elpa] externals/org f28288c255: org-agenda-align-tags: Do not trigger fold checks

[ELPA Syncer]

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

    org-agenda-align-tags: Do not trigger fold checks
    
    * lisp/org-agenda.el (org-agenda-align-tags): Do not try to check for
    folded regions in agenda.
---
 lisp/org-agenda.el | 43 ++++++++++++++++++++++---------------------
 1 file changed, 22 insertions(+), 21 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index d48a8a24a0..b98041ea8c 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -10091,30 +10091,31 @@ current line."
                        org-agenda-tags-column))
        (end (and line (line-end-position)))
        l c)
-    (save-excursion
-      (goto-char (if line (line-beginning-position) (point-min)))
-      (while (re-search-forward org-tag-group-re end t)
-       (add-text-properties
-        (match-beginning 1) (match-end 1)
-        (list 'face (delq nil (let ((prop (get-text-property
+    (org-fold-core-ignore-modifications
+      (save-excursion
+        (goto-char (if line (line-beginning-position) (point-min)))
+        (while (re-search-forward org-tag-group-re end t)
+         (add-text-properties
+          (match-beginning 1) (match-end 1)
+          (list 'face (delq nil (let ((prop (get-text-property
                                            (match-beginning 1) 'face)))
-                                (or (listp prop) (setq prop (list prop)))
-                                (if (memq 'org-tag prop)
+                                (or (listp prop) (setq prop (list prop)))
+                                (if (memq 'org-tag prop)
                                     prop
                                   (cons 'org-tag prop))))))
-       (setq l (string-width (match-string 1))
-             c (if (< org-agenda-tags-column 0)
-                   (- (abs org-agenda-tags-column) l)
-                 org-agenda-tags-column))
-       (goto-char (match-beginning 1))
-       (delete-region (save-excursion (skip-chars-backward " \t") (point))
-                      (point))
-       (insert (org-add-props
-                   (make-string (max 1 (- c (current-column))) ?\s)
-                   (plist-put (copy-sequence (text-properties-at (point)))
-                              'face nil))))
-      (goto-char (point-min))
-      (org-font-lock-add-tag-faces (point-max)))))
+         (setq l (string-width (match-string 1))
+               c (if (< org-agenda-tags-column 0)
+                     (- (abs org-agenda-tags-column) l)
+                   org-agenda-tags-column))
+         (goto-char (match-beginning 1))
+         (delete-region (save-excursion (skip-chars-backward " \t") (point))
+                        (point))
+         (insert (org-add-props
+                     (make-string (max 1 (- c (current-column))) ?\s)
+                     (plist-put (copy-sequence (text-properties-at (point)))
+                                'face nil))))
+        (goto-char (point-min))
+        (org-font-lock-add-tag-faces (point-max))))))
 
 (defun org-agenda-priority-up ()
   "Increase the priority of line at point, also in Org file."