From ecc6e2fe3feb46cfa583156404f6d8f34a5ae937 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 24 Aug 2011 16:35:36 +0200 Subject: [PATCH] org-agenda: refactor code in `org-agenda-dim-blocked-tasks' --- lisp/org-agenda.el | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 8d869be78..b157d39a5 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3198,17 +3198,9 @@ the global options and expect it to be applied to the entire view.") (setq org-blocked-by-checkboxes nil invis1 invis) (let ((marker (org-get-at-bol 'org-hd-marker))) (when (and marker - (not (with-current-buffer (marker-buffer marker) - (save-excursion - (goto-char marker) - (if (org-entry-get nil "NOBLOCKING") - t ;; Never block this entry - (run-hook-with-args-until-failure - 'org-blocker-hook - (list :type 'todo-state-change - :position marker - :from 'todo - :to 'done))))))) + (with-current-buffer (marker-buffer marker) + (save-excursion (goto-char marker) + (org-entry-blocked-p)))) (if org-blocked-by-checkboxes (setq invis1 nil)) (setq b (if invis1 (max (point-min) (1- (point-at-bol)))