summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTim Burt <tcburt@rochester.rr.com>2013-02-24 16:03:22 -0500
committerBastien Guerry <bzg@altern.org>2013-02-25 10:47:36 +0100
commitad06a946a59366c48d832dca1df94cdeba38a920 (patch)
treeb35eb9e9248fa75ca7193e213e3584f59b82e5c7
parentac44a7af0629cbc201654807709f4c364fe6ed4d (diff)
downloadorg-mode-ad06a946a59366c48d832dca1df94cdeba38a920.tar.gz
datetree: Recognize year headline with tags as a match
* lisp/org-datetree.el (org-datetree-find-year-create): Also match headlines with tags. Change made to fix the problem where a year headline of a datetree was not matched if it had a tag. The :NOEXPORT: tag is one useful case that should be matched. Initial problem observation reported by Jeffrey McBeth on the org-mode mailing list. TINYCHANGE
-rw-r--r--lisp/org-datetree.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-datetree.el b/lisp/org-datetree.el
index f2e35fa..e0f4d10 100644
--- a/lisp/org-datetree.el
+++ b/lisp/org-datetree.el
@@ -72,7 +72,7 @@ tree can be found."
(goto-char (prog1 (point) (widen))))))
(defun org-datetree-find-year-create (year)
- (let ((re "^\\*+[ \t]+\\([12][0-9][0-9][0-9]\\)\\s-*$")
+ (let ((re "^\\*+[ \t]+\\([12][0-9]\\{3\\}\\)\\(.*?\\([ \t]:[[:alnum:]:_@#%]+:\\)?\\s-*$\\)")
match)
(goto-char (point-min))
(while (and (setq match (re-search-forward re nil t))