mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Ihor Radchenko 2022-06-08 18:21:52 +08:00
parent 97d4d927f2
commit f28288c255
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-agenda.el
View File

@ -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."