aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/vc
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/vc
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/vc')
-rw-r--r--lisp/vc/ediff-mult.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/vc/ediff-mult.el b/lisp/vc/ediff-mult.el
index 1bdaca268e5..66d14e6b06d 100644
--- a/lisp/vc/ediff-mult.el
+++ b/lisp/vc/ediff-mult.el
@@ -1210,7 +1210,8 @@ behavior."
1210 (decoded-time-year time) 1210 (decoded-time-year time)
1211 (ediff-fill-leading-zero (decoded-time-hour time)) 1211 (ediff-fill-leading-zero (decoded-time-hour time))
1212 (ediff-fill-leading-zero (decoded-time-minute time)) 1212 (ediff-fill-leading-zero (decoded-time-minute time))
1213 (ediff-fill-leading-zero (decoded-time-second time)))) 1213 (ediff-fill-leading-zero (time-convert (decoded-time-second time)
1214 'integer))))
1214 1215
1215;; Draw the directories 1216;; Draw the directories
1216(defun ediff-insert-dirs-in-meta-buffer (meta-list) 1217(defun ediff-insert-dirs-in-meta-buffer (meta-list)