org-habit.el (org-habit-insert-consistency-graphs): Don't remove filter overlays
* org-habit.el (org-habit-insert-consistency-graphs): Don't remove filter overlays as we don't use overlays for filters anymore.
This commit is contained in:
parent
3a262e12e2
commit
7d3b3997d3
1 changed files with 2 additions and 11 deletions
|
@ -351,14 +351,7 @@ current time."
|
|||
(let ((inhibit-read-only t) l c
|
||||
(buffer-invisibility-spec '(org-link))
|
||||
(moment (time-subtract (current-time)
|
||||
(list 0 (* 3600 org-extend-today-until) 0)))
|
||||
disabled-overlays)
|
||||
;; Disable filters; this helps with alignment if there are links.
|
||||
(mapc (lambda (ol)
|
||||
(when (overlay-get ol 'invisible)
|
||||
(overlay-put ol 'invisible nil)
|
||||
(setq disabled-overlays (cons ol disabled-overlays))))
|
||||
(overlays-in (point-min) (point-max)))
|
||||
(list 0 (* 3600 org-extend-today-until) 0))))
|
||||
(save-excursion
|
||||
(goto-char (if line (point-at-bol) (point-min)))
|
||||
(while (not (eobp))
|
||||
|
@ -374,9 +367,7 @@ current time."
|
|||
(time-subtract moment (days-to-time org-habit-preceding-days))
|
||||
moment
|
||||
(time-add moment (days-to-time org-habit-following-days))))))
|
||||
(forward-line)))
|
||||
(mapc (lambda (ol) (overlay-put ol 'invisible t))
|
||||
disabled-overlays)))
|
||||
(forward-line)))))
|
||||
|
||||
(defun org-habit-toggle-habits ()
|
||||
"Toggle display of habits in an agenda buffer."
|
||||
|
|
Loading…
Reference in a new issue