summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-03-04 12:22:08 +0100
committerBastien Guerry <bzg@altern.org>2013-03-04 12:22:08 +0100
commit5c4c8afe074f38626d5ff431463f9f63737e23e8 (patch)
treeac4b0ff81d2009cecc0c9a61689ada44febcf204
parentf00fd7800f73117ba4863bcab8bb29f2165d9ad3 (diff)
downloadorg-mode-5c4c8afe074f38626d5ff431463f9f63737e23e8.tar.gz
Fix bug in `org-schedule' and `org-deadline' introduced in fc8824.
Thanks to Eric Abrahamsen for reporting this.
-rw-r--r--lisp/org.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 9cb1fa3..82f9073 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -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]\\)?\\) ?"