mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-29 20:35:02 +00:00
Code

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
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]\\)?\\) ?"