[elpa] externals/org 9152347 1/2: org-scan-tags: Fix `org-agenda-change-all-lines' when prefix has effort

[ELPA Syncer]

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

    org-scan-tags: Fix `org-agenda-change-all-lines' when prefix has effort
    
    * lisp/org.el (org-scan-tags): Add `effort' and `effort-minutes' to
    full agenda line, not just its heading string part.
    `org-agenda-change-all-lines' expects the properties to be at BOL.
---
 lisp/org.el | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 4c41f60..9e2fae1 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11595,18 +11595,25 @@ headlines matching this string."
                             (effort-minutes (when effort (save-match-data 
(org-duration-to-minutes effort)))))
                       (setq txt (org-agenda-format-item
                                  ""
-                                 (concat
-                                  (if (eq org-tags-match-list-sublevels 
'indented)
-                                      (make-string (1- level) ?.) "")
-                                   (org-add-props
-                                      (org-get-heading)
-                                       nil
-                                     'effort effort
-                                     'effort-minutes effort-minutes))
+                                  ;; Add `effort' and `effort-minutes'
+                                  ;; properties for prefix format.
+                                  (org-add-props
+                                      (concat
+                                      (if (eq org-tags-match-list-sublevels 
'indented)
+                                          (make-string (1- level) ?.) "")
+                                      (org-get-heading))
+                                      nil
+                                    'effort effort
+                                    'effort-minutes effort-minutes)
                                  (make-string level ?\s)
                                  category
                                  tags-list)
-                            priority (org-get-priority txt)))
+                            priority (org-get-priority txt))
+                       ;; Now add `effort' and `effort-minutes' to
+                       ;; full agenda line.
+                       (setq txt (org-add-props txt nil
+                                   'effort effort
+                                   'effort-minutes effort-minutes)))
                     (goto-char (org-element-property :begin el))
                     (setq marker (org-agenda-new-marker))
                     (org-add-props txt props