From 7d3b3997d3d67c3ef0834e45266dec1fa12cad5d Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 22 May 2014 14:34:46 +0200 Subject: [PATCH] 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. --- lisp/org-habit.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/lisp/org-habit.el b/lisp/org-habit.el index 721718d2b..60137568c 100644 --- a/lisp/org-habit.el +++ b/lisp/org-habit.el @@ -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."