diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-01-30 22:19:28 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-01-30 22:19:28 +0100 |
commit | 5e47e49832be6c685321379c052b6b6282ee62a3 (patch) | |
tree | 5a62e09776d1e4dba49e20075c9e5ef39dcbcdfd | |
parent | 5fe9e6cbeaea12c020eeb495223ce359825121b8 (diff) | |
download | org-mode-5e47e49832be6c685321379c052b6b6282ee62a3.tar.gz |
Revert actionable repeaters in inactive timestamps
* lisp/org.el (org-repeat-re): Repeaters are for active timestamps
only.
* testing/lisp/test-org.el (test-org/auto-repeat-maybe): Update test.
Reported-by: cesar mena <cesar.mena@gmail.com>
<http://lists.gnu.org/r/emacs-orgmode/2019-01/msg00095.html>
-rw-r--r-- | lisp/org.el | 2 | ||||
-rw-r--r-- | testing/lisp/test-org.el | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index e7bca37..cf305e5 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -675,7 +675,7 @@ on a string that terminates immediately after the date.") The time stamps may be either active or inactive.") (defconst org-repeat-re - "[[<][0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9] [^]>\n]*?\ + "<[0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9] [^>\n]*?\ \\([.+]?\\+[0-9]+[hdwmy]\\(/[0-9]+[hdwmy]\\)?\\)" "Regular expression for specifying repeated events. After a match, group 1 contains the repeat expression.") diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 38df73d..a6ef491 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -6638,8 +6638,8 @@ Paragraph<point>" (org-test-with-temp-text "* TODO H\n<2012-03-29 Thu +2h>" (org-todo "DONE") (buffer-string)))) - ;; Also repeat inactive time stamps with a repeater. - (should + ;; Do not repeat inactive time stamps with a repeater. + (should-not (string-match-p "\\[2014-03-29 .* \\+2y\\]" (let ((org-todo-keywords '((sequence "TODO" "DONE")))) |