From ccdfa8ddf8c1e7ae438a3f3df6927f1026baf5c0 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 18 Apr 2013 12:20:08 +0200 Subject: [PATCH] org-datetree.el: Be more restrictive when finding a year datetree * org-datetree.el (org-datetree-find-month-create) (org-datetree-find-day-create): Add a docstring. (org-datetree-find-year-create): Only match headlines with a year or a year and one or more tags. Thanks to Suvayu Ali for reporting this. --- lisp/org-datetree.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/org-datetree.el b/lisp/org-datetree.el index e0f4d10bc..dd4b1b0e1 100644 --- a/lisp/org-datetree.el +++ b/lisp/org-datetree.el @@ -72,7 +72,8 @@ tree can be found." (goto-char (prog1 (point) (widen)))))) (defun org-datetree-find-year-create (year) - (let ((re "^\\*+[ \t]+\\([12][0-9]\\{3\\}\\)\\(.*?\\([ \t]:[[:alnum:]:_@#%]+:\\)?\\s-*$\\)") + "Find the YEAR datetree or create it." + (let ((re "^\\*+[ \t]+\\([12][0-9]\\{3\\}\\)\\(\\s-*?\\([ \t]:[[:alnum:]:_@#%]+:\\)?\\s-*$\\)") match) (goto-char (point-min)) (while (and (setq match (re-search-forward re nil t)) @@ -90,6 +91,7 @@ tree can be found." (org-datetree-insert-line year))))) (defun org-datetree-find-month-create (year month) + "Find the datetree for YEAR and MONTH or create it." (org-narrow-to-subtree) (let ((re (format "^\\*+[ \t]+%d-\\([01][0-9]\\) \\w+$" year)) match) @@ -109,6 +111,7 @@ tree can be found." (org-datetree-insert-line year month))))) (defun org-datetree-find-day-create (year month day) + "Find the datetree for YEAR, MONTH and DAY or create it." (org-narrow-to-subtree) (let ((re (format "^\\*+[ \t]+%d-%02d-\\([0123][0-9]\\) \\w+$" year month)) match) -- 2.11.4.GIT