Fix bug in `org-schedule' and `org-deadline' introduced in fc8824.

Thanks to Eric Abrahamsen for reporting this.
This commit is contained in:
Bastien Guerry 2013-03-04 12:22:08 +01:00
parent f00fd7800f
commit 5c4c8afe07
1 changed files with 2 additions and 2 deletions

View File

@ -12632,7 +12632,7 @@ can either be an Org date like \"2011-07-24\" or a delta like \"+2d\"."
org-loop-over-headlines-in-active-region
cl (if (outline-invisible-p) (org-end-of-subtree nil t))))
(let* ((old-date (org-entry-get nil "DEADLINE"))
(old-date-time (org-time-string-to-time old-date))
(old-date-time (if old-date (org-time-string-to-time old-date)))
(repeater (and old-date
(string-match
"\\([.+-]+[0-9]+[hdwmy]\\(?:[/ ][-+]?[0-9]+[hdwmy]\\)?\\) ?"
@ -12701,7 +12701,7 @@ either be an Org date like \"2011-07-24\" or a delta like \"+2d\"."
org-loop-over-headlines-in-active-region
cl (if (outline-invisible-p) (org-end-of-subtree nil t))))
(let* ((old-date (org-entry-get nil "SCHEDULED"))
(old-date-time (org-time-string-to-time old-date))
(old-date-time (if old-date (org-time-string-to-time old-date)))
(repeater (and old-date
(string-match
"\\([.+-]+[0-9]+[hdwmy]\\(?:[/ ][-+]?[0-9]+[hdwmy]\\)?\\) ?"