From 1c57cd5a7d1b28353e7bd7a948f602137b6b00ec Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 19 Dec 2012 00:23:30 +0100 Subject: [PATCH] org-agenda.el (org-agenda-skip): Only check if point is inside a code block, not at a code block. * org-agenda.el (org-agenda-skip): Only check if point is inside a code block, not at a code block. Thanks to Eric Fraga for reporting this problem. --- lisp/org-agenda.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index a2e919f59..90995f79e 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3656,7 +3656,7 @@ A good way to set it is through options in `org-agenda-custom-commands'.") Also moves point to the end of the skipped region, so that search can continue from there." (let ((p (point-at-bol)) to) - (when (org-in-src-block-p) (throw :skip t)) + (when (org-in-src-block-p t) (throw :skip t)) (and org-agenda-skip-archived-trees (not org-agenda-archives-mode) (get-text-property p :org-archived) (org-end-of-subtree t)