aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/org
diff options
context:
space:
mode:
authorPaul Eggert2019-08-17 15:39:18 -0700
committerPaul Eggert2019-08-17 15:43:05 -0700
commitc90a420779448fecf1941f063da3e8276dc3d0d7 (patch)
tree691868a02f1e99ee4e3e058b23836501d3f0ffad /lisp/org
parent6616806896060d95355c965599517d7065c19b86 (diff)
downloademacs-c90a420779448fecf1941f063da3e8276dc3d0d7.tar.gz
emacs-c90a420779448fecf1941f063da3e8276dc3d0d7.zip
Add FIXMEs for subsecond support
This adds FIXMEs to areas where Lisp code should support subsecond information in broken-down timestamps. It also fixes some unnecessary truncation of timestamps, and ports the code to a hypothetical future Emacs version where (decode-time) returns subsecond timestamps by default. * lisp/calc/calc-forms.el (calc-time, math-iso-dt-to-date) (calcFunc-now): * lisp/calendar/icalendar.el (icalendar--add-decoded-times): * lisp/calendar/iso8601.el (iso8601-parse-interval): Truncate seconds to an integer, and add a FIXME about subseconds support. * lisp/calendar/icalendar.el (icalendar--decode-isodatetime) (icalendar--decode-isoduration): Add a FIXME about subseconds support. * lisp/gnus/gnus-delay.el (gnus-delay-article): Don’t truncate seconds to an integer, as there’s no need to do that here. * lisp/gnus/gnus-util.el (gnus-seconds-today) (gnus-seconds-month, gnus-seconds-year): * lisp/gnus/message.el (message-make-expires-date): * lisp/org/org-timer.el (org-timer-show-remaining-time): * lisp/vc/ediff-mult.el (ediff-format-date): Truncate seconds to an integer, as that’s what’s wanted here. * lisp/midnight.el (midnight-next): Ceiling seconds to an integer, as that’s what wanted here.
Diffstat (limited to 'lisp/org')
-rw-r--r--lisp/org/org-timer.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org/org-timer.el b/lisp/org/org-timer.el
index 6529a8b0ddf..20b33a1ef5f 100644
--- a/lisp/org/org-timer.el
+++ b/lisp/org/org-timer.el
@@ -385,7 +385,8 @@ VALUE can be `on', `off', or `paused'."
385 (message "No timer set") 385 (message "No timer set")
386 (let* ((rtime (decode-time 386 (let* ((rtime (decode-time
387 (time-subtract (timer--time org-timer-countdown-timer) 387 (time-subtract (timer--time org-timer-countdown-timer)
388 nil))) 388 nil)
389 'integer))
389 (rsecs (nth 0 rtime)) 390 (rsecs (nth 0 rtime))
390 (rmins (nth 1 rtime))) 391 (rmins (nth 1 rtime)))
391 (message "%d minute(s) %d seconds left before next time out" 392 (message "%d minute(s) %d seconds left before next time out"