tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix `org-get-repeat'

Browse source 
* lisp/org.el (org-get-repeat): Prevent false positive.
This commit is contained in:
Nicolas Goaziou 2017-02-03 00:32:16 +01:00
parent 2a59d2f76f
commit aef7eef0f9
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/org.el
View file

@ -13199,11 +13199,13 @@ on INACTIVE-OK."
(save-match-data
(save-excursion
(org-back-to-heading t)
(and (re-search-forward (if tagline
(concat tagline "\\s-*" org-repeat-re)
org-repeat-re)
(org-entry-end-position) t)
(match-string-no-properties 1)))))
(let ((end (org-entry-end-position))
(regexp (if tagline (concat tagline "\\s-*" org-repeat-re)
org-repeat-re)))
(catch :repeat
(while (re-search-forward regexp end t)
(when (org-at-timestamp-p)
(throw :repeat (match-string-no-properties 1)))))))))
(defvar org-last-changed-timestamp)
(defvar org-last-inserted-timestamp)