diff options
author | Tim Burt <tcburt@rochester.rr.com> | 2013-02-24 16:03:22 -0500 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-25 10:47:36 +0100 |
commit | ad06a946a59366c48d832dca1df94cdeba38a920 (patch) | |
tree | b35eb9e9248fa75ca7193e213e3584f59b82e5c7 | |
parent | ac44a7af0629cbc201654807709f4c364fe6ed4d (diff) | |
download | org-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.el | 2 |
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)) |