diff options
| author | Lars Ingebrigtsen | 2019-07-30 13:08:21 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-30 13:08:21 +0200 |
| commit | c859bc07c96484e5f8f31c24a0057a0fcf02a441 (patch) | |
| tree | f93c27394a06318b88a52917625b8f4e44f39687 | |
| parent | e9e1b0af354aa1672429729ff1e0f48370ce362f (diff) | |
| download | emacs-c859bc07c96484e5f8f31c24a0057a0fcf02a441.tar.gz emacs-c859bc07c96484e5f8f31c24a0057a0fcf02a441.zip | |
Use decoded time accessors in timeclock
* lisp/calendar/timeclock.el (timeclock-day-base): Use decoded time
accessors.
| -rw-r--r-- | lisp/calendar/timeclock.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index 3735115a937..60586e7aced 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el | |||
| @@ -1139,9 +1139,9 @@ discrepancy, today's discrepancy, and the time worked today." | |||
| 1139 | "Given a time within a day, return 0:0:0 within that day. | 1139 | "Given a time within a day, return 0:0:0 within that day. |
| 1140 | If optional argument TIME is non-nil, use that instead of the current time." | 1140 | If optional argument TIME is non-nil, use that instead of the current time." |
| 1141 | (let ((decoded (decode-time time))) | 1141 | (let ((decoded (decode-time time))) |
| 1142 | (setcar (nthcdr 0 decoded) 0) | 1142 | (setf (decoded-time-second decoded) 0) |
| 1143 | (setcar (nthcdr 1 decoded) 0) | 1143 | (setf (decoded-time-minute decoded) 0) |
| 1144 | (setcar (nthcdr 2 decoded) 0) | 1144 | (setf (decoded-time-hour decoded) 0) |
| 1145 | (encode-time decoded))) | 1145 | (encode-time decoded))) |
| 1146 | 1146 | ||
| 1147 | (defun timeclock-mean (l) | 1147 | (defun timeclock-mean (l) |