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.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/org.el b/lisp/org.el
index e8b78a3..10a1d83 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)))