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.
This commit is contained in:
parent
97d4d927f2
commit
f28288c255
|
@ -10091,6 +10091,7 @@ current line."
|
|||
org-agenda-tags-column))
|
||||
(end (and line (line-end-position)))
|
||||
l c)
|
||||
(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)
|
||||
|
@ -10114,7 +10115,7 @@ current line."
|
|||
(plist-put (copy-sequence (text-properties-at (point)))
|
||||
'face nil))))
|
||||
(goto-char (point-min))
|
||||
(org-font-lock-add-tag-faces (point-max)))))
|
||||
(org-font-lock-add-tag-faces (point-max))))))
|
||||
|
||||
(defun org-agenda-priority-up ()
|
||||
"Increase the priority of line at point, also in Org file."
|
||||
|
|
Loading…
Reference in New Issue