branch: externals/org
commit fa7542d74c87ba7b39ca377ede2d1beeabf5a177
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
* lisp/org-agenda.el (org-agenda-get-progress): Fix clock log entries
Do not alter match data when calling `org-get-category'. The
subsequent code assumes that match data is not altered.
---
lisp/org-agenda.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 83789e1279..a4c6b1ecd0 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6122,7 +6122,7 @@ then those holidays will be skipped."
statep (equal (string-to-char (match-string 1)) ?-)
clockp (not (or closedp statep))
state (and statep (match-string 2))
- category (org-get-category (match-beginning 0))
+ category (save-match-data (org-get-category (match-beginning 0)))
timestr (buffer-substring (match-beginning 0) (line-end-position))
effort (save-match-data (or (get-text-property (point) 'effort)
(org-entry-get (point)
org-effort-property))))
