mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 06:16:27 +00:00
Code Releases Activity

org-agenda-align-tags: Do not trigger fold checks

Browse source 
* 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)) org-agenda-tags-column))
(end (and line (line-end-position))) (end (and line (line-end-position)))
l c) l c)
(org-fold-core-ignore-modifications
(save-excursion (save-excursion
(goto-char (if line (line-beginning-position) (point-min))) (goto-char (if line (line-beginning-position) (point-min)))
(while (re-search-forward org-tag-group-re end t) (while (re-search-forward org-tag-group-re end t)
@ -10114,7 +10115,7 @@ current line."
(plist-put (copy-sequence (text-properties-at (point))) (plist-put (copy-sequence (text-properties-at (point)))
'face nil)))) 'face nil))))
(goto-char (point-min)) (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 () (defun org-agenda-priority-up ()
"Increase the priority of line at point, also in Org file." "Increase the priority of line at point, also in Org file."