Fix cfw:org-get-timerange to display the correct timerange

chenweiy · May 10, 2021 · 4fa5e37 · 4fa5e37
1 parent 03abce9
commit 4fa5e37
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/calfw-org.el b/calfw-org.el
@@ -238,12 +238,10 @@ If TEXT does not have a range, return nil."
 				(match-string 1 extra)))
 		      (total-days (string-to-number
 				   (match-string 2 extra)))
-		      (start-date (time-subtract
-				   (org-read-date nil t date-string)
-				   (seconds-to-time (* 3600 24 (- cur-day 1)))))
+		      (start-date (org-read-date nil t date-string))
 		      (end-date (time-add
 				 (org-read-date nil t date-string)
-				 (seconds-to-time (* 3600 24 (- total-days cur-day))))))
+				 (seconds-to-time (* 3600 24 (- total-days 1))))))
 		 (list (calendar-gregorian-from-absolute (time-to-days start-date))
 		       (calendar-gregorian-from-absolute (time-to-days end-date)) text))
 	     )))))