ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2019-07-06 10:25:18 +02:00
parent b855acc878 acf4f0881a
commit 1b3c7c28cf
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-agenda.el
View File

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