[elpa] externals/org 22dea8557f 1/3: org-agenda: Apply the face `org-agenda-calendar-event'

[ELPA Syncer]

branch: externals/org
commit 22dea8557f7fd9919301cc91cf7a2d6df3c423f7
Author: Gautier Ponsinet <gautier@gautierponsinet.xyz>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-agenda: Apply the face `org-agenda-calendar-event'
    
    * list/org-agenda.el (org-agenda-get-blocks): Apply the face
      `org-agenda-calendar-event' to entries with a time range within a
      single day.
---
 lisp/org-agenda.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index d983a09166..4f29f3eb62 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -7059,8 +7059,7 @@ scheduled items with an hour specification like [h]h:mm."
 (defun org-agenda-get-blocks ()
   "Return the date-range information for agenda display."
   (with-no-warnings (defvar date))
-  (let* ((props (list 'face nil
-                     'org-not-done-regexp org-not-done-regexp
+  (let* ((props (list 'org-not-done-regexp org-not-done-regexp
                      'org-todo-regexp org-todo-regexp
                      'org-complex-heading-regexp org-complex-heading-regexp
                      'mouse-face 'highlight
@@ -7069,9 +7068,9 @@ scheduled items with an hour specification like [h]h:mm."
                              (abbreviate-file-name buffer-file-name))))
         (regexp org-tr-regexp)
         (d0 (calendar-absolute-from-gregorian date))
-        marker hdmarker ee txt d1 d2 s1 s2 category
-        level todo-state tags pos head donep inherited-tags
-         effort effort-minutes)
+         face marker hdmarker ee txt d1 d2 s1 s2 category level
+        todo-state tags pos head donep inherited-tags effort
+        effort-minutes)
     (goto-char (point-min))
     (while (re-search-forward regexp nil t)
       (catch :skip
@@ -7109,6 +7108,9 @@ scheduled items with an hour specification like [h]h:mm."
              (setq donep (member todo-state org-done-keywords))
              (when (and donep org-agenda-skip-timestamp-if-done)
                (throw :skip t))
+              (setq face (if (= d1 d2)
+                             'org-agenda-calendar-event
+                           nil))
              (setq marker (org-agenda-new-marker (point))
                    category (org-get-category))
               (setq effort (save-match-data (or (get-text-property (point) 
'effort)
@@ -7160,6 +7162,7 @@ scheduled items with an hour specification like [h]h:mm."
                                        (concat "<" end-time ">")))))
                             remove-re))))
              (org-add-props txt props
+                'face face
                'org-marker marker 'org-hd-marker hdmarker
                'type "block" 'date date
                'level level