From 67d9372487d00e6d365ad7c93646689768197ba9 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Wed, 21 Feb 2024 14:15:24 +0300 Subject: [PATCH] org-read-date-display: Fix random overlay priority when selection is at today * lisp/org.el (org-read-date-display): Assign `org-read-date-overlay' non-default priority. This makes sure that the overlay is displayed over the overlay that calendar.el puts to indicate "today". Reported-by: John Kitchin Link: https://orgmode.org/list/CALEYq0-xbCc6ayEK3v7tKnuGU7=Npgh3raEjuB13qOTN6Eu07Q@mail.gmail.com --- lisp/org.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index d7d6a98b1..4cbd30d3a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14074,6 +14074,9 @@ user." (setq txt (concat txt " (=>F)"))) (setq org-read-date-overlay (make-overlay (1- (line-end-position)) (line-end-position))) + ;; Avoid priority race with overlay used by calendar.el. + ;; See bug#69271. + (overlay-put org-read-date-overlay 'priority 1) (org-overlay-display org-read-date-overlay txt 'secondary-selection))))) (defun org-read-date-analyze (ans def defdecode)