From 682bb962f3934cd50d28a9b2d0b0e0fb85746a03 Mon Sep 17 00:00:00 2001 From: Bastien Date: Tue, 18 Aug 2015 11:53:45 +0200 Subject: [PATCH] org.el (org-occur): Match timestamps at the end of a headline * org.el (org-occur): Workaround to match timestamps at the end of a headline. --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index e8b78a3fb..10a1d8350 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -13925,6 +13925,7 @@ that the match should indeed be shown." ;; hide everything (org-overview)) (while (re-search-forward regexp nil t) + (backward-char) ;; FIXME: Match timestamps at the end of a headline (when (or (not callback) (save-match-data (funcall callback))) (setq cnt (1+ cnt)) @@ -17448,7 +17449,6 @@ days. If the prefix is a raw \\[universal-argument] prefix, all deadlines are s (regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>")) (callback (lambda () (org-deadline-close (match-string 1) org-warn-days)))) - (message "%d deadlines past-due or due within %d days" (org-occur regexp nil callback) org-warn-days)))