diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-09 16:31:58 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-09 16:31:58 -0400 |
| commit | bf86385345e37e69d03d65ac3e7ce3fc30d9269d (patch) | |
| tree | 8796b49a1d7a423138128b684486fe682030f6a3 /lisp/calendar/time-date.el | |
| parent | 0b78dd60277129af9f520e4d5dc8c7e528c63eee (diff) | |
| download | emacs-bf86385345e37e69d03d65ac3e7ce3fc30d9269d.tar.gz | |
(time-to-seconds, time-less-p): Mark unused vars with underscore
* lisp/calendar/time-date.el (time-to-seconds, time-less-p):
Mark unused vars with underscore.
Diffstat (limited to 'lisp/calendar/time-date.el')
| -rw-r--r-- | lisp/calendar/time-date.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index f30bea83ed0..2c646456112 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/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) |