branch: externals/org
commit 6592c766d266ca3ff27cc6786d7871a32bcf3970
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@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
