From 5c4c8afe074f38626d5ff431463f9f63737e23e8 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 4 Mar 2013 12:22:08 +0100 Subject: [PATCH] Fix bug in `org-schedule' and `org-deadline' introduced in fc8824. Thanks to Eric Abrahamsen for reporting this. --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 9cb1fa3d0..82f907318 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]\\)?\\) ?"