From: Stefan Monnier Date: Wed, 9 Sep 2015 22:32:29 +0000 (+0000) Subject: time-date.el (time-to-seconds, time-less-p): Mark unused vars with underscore X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=b094acedc8f1bea034535fb457765d03d4a310a9 time-date.el (time-to-seconds, time-less-p): Mark unused vars with underscore --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e3782bf48..41d390b1e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-09-09 Stefan Monnier + + * time-date.el (time-to-seconds, time-less-p): + Mark unused vars with underscore. + 2015-09-08 Stefan Monnier * time-date.el (with-decoded-time-value): Fix debug spec. diff --git a/lisp/time-date.el b/lisp/time-date.el index f30bea83e..2c6464561 100644 --- a/lisp/time-date.el +++ b/lisp/time-date.el @@ -179,7 +179,7 @@ If DATE lacks timezone information, GMT is assumed." (defun time-to-seconds (&optional time) "Convert optional value TIME to a floating point number. TIME defaults to the current time." - (with-decoded-time-value ((high low micro pico type + (with-decoded-time-value ((high low micro pico _type (or time (current-time)))) (+ (* high 65536.0) low @@ -262,8 +262,8 @@ Return the difference in the format of a time value." (defun time-less-p (t1 t2) "Return non-nil if time value T1 is earlier than time value T2." - (with-decoded-time-value ((high1 low1 micro1 pico1 type1 t1) - (high2 low2 micro2 pico2 type2 t2)) + (with-decoded-time-value ((high1 low1 micro1 pico1 _type1 t1) + (high2 low2 micro2 pico2 _type2 t2)) (or (< high1 high2) (and (= high1 high2) (or (< low1 low2)