Browse Source

Deadlines: Deal with "incorrect" positioning of warning period

Carsten Dominik 16 years ago
parent
commit
54adaa4f9f
2 changed files with 6 additions and 1 deletions
  1. 5 0
      lisp/ChangeLog
  2. 1 1
      lisp/org.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-02-18  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org.el (org-get-wdays): Find the warning period also if it is in
+	the wrong place.
+
 2009-02-17  Carsten Dominik  <carsten.dominik@gmail.com>
 2009-02-17  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
 	* org.el (org-olpath-completing-read): Never use ido for this
 	* org.el (org-olpath-completing-read): Never use ido for this

+ 1 - 1
lisp/org.el

@@ -11779,7 +11779,7 @@ Don't touch the rest."
    ((<= org-deadline-warning-days 0)
    ((<= org-deadline-warning-days 0)
     ;; 0 or negative, enforce this value no matter what
     ;; 0 or negative, enforce this value no matter what
     (- org-deadline-warning-days))
     (- org-deadline-warning-days))
-   ((string-match "-\\([0-9]+\\)\\([dwmy]\\)\\(\\'\\|>\\)" ts)
+   ((string-match "-\\([0-9]+\\)\\([dwmy]\\)\\(\\'\\|>\\| \\)" ts)
     ;; lead time is specified.
     ;; lead time is specified.
     (floor (* (string-to-number (match-string 1 ts))
     (floor (* (string-to-number (match-string 1 ts))
 	      (cdr (assoc (match-string 2 ts)
 	      (cdr (assoc (match-string 2 ts)