mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-05 11:45:52 +00:00
Code

org-agenda: refactor code in `org-agenda-dim-blocked-tasks'

Browse Source
This commit is contained in:
Nicolas Goaziou 2011-08-24 16:35:36 +02:00
parent 25131410f4
commit ecc6e2fe3f
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-agenda.el
View File

@ -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)))