[elpa] externals/org 6592c766d2 1/5: org-agenda-bulk-mark: Fix mark not being visible when column view is active

[ELPA Syncer]

branch: externals/org
commit 6592c766d266ca3ff27cc6786d7871a32bcf3970
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-agenda-bulk-mark: Fix mark not being visible when column view is active
    
    * lisp/org-agenda.el (org-agenda-bulk-mark): Use 'before-string in the
    mark overlay to make sure that higher-priority Org agenda columns
    overlay is not making the mark completely invisible.
    
    Link: 
https://old.reddit.com/r/orgmode/comments/13jbjep/is_it_possible_to_show_a_selection_mark_in/
---
 lisp/org-agenda.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 073304b9ba..f08b0d8308 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -10633,9 +10633,16 @@ When ARG is greater than one mark ARG lines."
          (push m org-agenda-bulk-marked-entries)
           (setq ov (make-overlay (line-beginning-position)
                                  (+ 2 (line-beginning-position))))
-         (org-overlay-display ov (concat org-agenda-bulk-mark-char " ")
-                              (org-get-todo-face "TODO")
-                              'evaporate)
+          ;; Display using 'before-string to make the overlay
+          ;; compatible with column view in agenda that uses an
+          ;; overlay with higher priority.
+          (overlay-put ov 'before-string
+                       (propertize org-agenda-bulk-mark-char
+                                   'face (org-get-todo-face "TODO")))
+          ;; We cannot completely hide the overlay to make point
+          ;; adjustment not move point out of overlay (to previous
+          ;; line) when moving lines with n/p.
+         (org-overlay-display ov " " nil 'evaporate)
          (overlay-put ov 'type 'org-marked-entry-overlay))
        (end-of-line 1)
        (or (ignore-errors