summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-10-10 16:11:41 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2012-10-17 17:21:18 +0200
commit92199873c5796a31aecd573ee485bbb4accd5f28 (patch)
tree8fbc8a9c299e99df0bff378f40cbc49760e10fcb
parent8f96754932e8be63335c8565cec2d34f46f54078 (diff)
downloadorg-mode-92199873c5796a31aecd573ee485bbb4accd5f28.tar.gz
Fix bug related to agenda bulding with hour repeaters
* lisp/org.el: Make `org-closest-date' aware of hours repeaters.
-rw-r--r--lisp/org.el14
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 932f5b3..2442ab3 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -16156,7 +16156,12 @@ When PREFER is `future', return a date that is either CURRENT or future.
When SHOW-ALL is nil, only return the current occurrence of a time stamp."
;; Make the proper lists from the dates
(catch 'exit
- (let ((a1 '(("d" . day) ("w" . week) ("m" . month) ("y" . year)))
+ (let ((a1 '(("h" . hour)
+ ("d" . day)
+ ("w" . week)
+ ("m" . month)
+ ("y" . year)))
+ (shour (nth 2 (org-parse-time-string start)))
dn dw sday cday n1 n2 n0
d m y y1 y2 date1 date2 nmonths nm ny m2)
@@ -16176,6 +16181,13 @@ When SHOW-ALL is nil, only return the current occurrence of a time stamp."
(error "Invalid change specifier: %s" change))
(if (eq dw 'week) (setq dw 'day dn (* 7 dn)))
(cond
+ ((eq dw 'hour)
+ (let ((missing-hours
+ (mod (+ (- (* 24 (- cday sday)) shour) org-extend-today-until)
+ dn)))
+ (setq n1 (if (zerop missing-hours) cday
+ (- cday (1+ (floor (/ missing-hours 24)))))
+ n2 (+ cday (floor (/ (- dn missing-hours) 24))))))
((eq dw 'day)
(setq n1 (+ sday (* dn (floor (/ (- cday sday) dn))))
n2 (+ n1 dn)))