mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-05 20:13:25 +00:00
parent
3e95e859cd
commit
ff064f89c2
|
@ -5338,8 +5338,8 @@ the rounding returns a past time."
|
|||
(apply 'encode-time
|
||||
(append (list 0 (* r (floor (+ .5 (/ (float (nth 1 time)) r)))))
|
||||
(nthcdr 2 time))))
|
||||
(if (and past (< (float-time (time-subtract (current-time) res)) 0))
|
||||
(float-time (- (time-to-seconds res) (* r 60)))
|
||||
(if (and past (< (time-to-seconds (time-subtract (current-time) res)) 0))
|
||||
(seconds-to-time (- (time-to-seconds res) (* r 60)))
|
||||
res))))
|
||||
|
||||
(defun org-today ()
|
||||
|
|
Loading…
Reference in a new issue