Merge branch 'maint'

1 files changed, 6 insertions, 3 deletions

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index fbf520c..633bbf3 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4201,9 +4201,12 @@ items if they have an hour specification like [h]h:mm."
                           ((= w1 w2) (format " (W%02d)" w1))
                           (t (format " (W%02d-W%02d)" w1 w2)))
 		    ":\n")))
-	(add-text-properties s (1- (point)) (list 'face 'org-agenda-structure
-						  'org-date-line t))
-	(org-agenda-mark-header-line s))
+	;; Add properties if we actually inserted a header.
+	(when (> (point) s)
+	  (add-text-properties s (1- (point))
+			       (list 'face 'org-agenda-structure
+				     'org-date-line t))
+	  (org-agenda-mark-header-line s)))
       (while (setq d (pop day-numbers))
 	(setq date (calendar-gregorian-from-absolute d)
 	      s (point))