diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-11 14:42:34 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-11 14:42:34 +0200 |
commit | e8253c57f14eb0cd2b01c6a38ed4f9150461180b (patch) | |
tree | e1ffe819d486cde09ff20e124672287bb32c9658 | |
parent | 9bb87f49f72de1ff7fcddc063f961d898b9f3c81 (diff) | |
download | org-mode-e8253c57f14eb0cd2b01c6a38ed4f9150461180b.tar.gz |
org-agenda: Fix slowdown introduced in 570b193
* lisp/org-agenda.el (org-agenda-dim-blocked-tasks): Do not check
multiple times the same entry.
Reported-by: Matt Lundin <mdl@imapmail.org>
<http://permalink.gmane.org/gmane.emacs.orgmode/99842>
-rw-r--r-- | lisp/org-agenda.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7b48838..04143cd 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3867,7 +3867,7 @@ dimming them." (goto-char (point-min)) (while (let ((pos (text-property-not-all (point) (point-max) 'todo-state nil))) - (when pos (goto-char (1+ pos)))) + (when pos (goto-char pos))) (setq org-blocked-by-checkboxes nil) (let ((marker (org-get-at-bol 'org-hd-marker))) (when (and (markerp marker) @@ -3885,7 +3885,8 @@ dimming them." (line-end-position)))) (if really-invisible (overlay-put ov 'invisible t) (overlay-put ov 'face 'org-agenda-dimmed-todo-face)) - (overlay-put ov 'org-type 'org-blocked-todo))))))) + (overlay-put ov 'org-type 'org-blocked-todo)))) + (forward-line)))) (when (org-called-interactively-p 'interactive) (message "Dim or hide blocked tasks...done"))) |