John Kitchin <jkitchin@andrew.cmu.edu> writes:

> This slightly different code (differs only in assigning an anonymous face
> instead of an actual face doesn't do that exactly. Today is still marked
> red, but it is no longer selected with the inverse square. Neighboring days
> do get the red square, but not "today".
>
> (let* ((mark-calendar (lambda ()
> (calendar-mark-visible-date
> (read (format-time-string "(%m %d %Y)"))
> (list :foreground "red" :weight 'bold))))
>        (calendar-today-visible-hook))
>   (add-hook 'calendar-today-visible-hook
>    mark-calendar)
>   (org-read-date))

That's because cursor background becomes the same as text foreground and
Emacs prevents the clash.

--
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>