diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-02-10 23:47:43 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-02-10 23:54:34 -0800 |
| commit | 57c74793c46c6533b63836f00aecaf3ac2accb6d (patch) | |
| tree | 5ceb3f9e765c4240069f92653d1648ca1137887c /lisp/org/org-clock.el | |
| parent | 54b9ee77adca44299fe8f4342498a082608b4d1b (diff) | |
| download | emacs-57c74793c46c6533b63836f00aecaf3ac2accb6d.tar.gz emacs-57c74793c46c6533b63836f00aecaf3ac2accb6d.tar.bz2 emacs-57c74793c46c6533b63836f00aecaf3ac2accb6d.zip | |
Prefer encode-time to its alias
* lisp/calendar/icalendar.el, lisp/calendar/timeclock.el:
* lisp/emacs-lisp/timer.el, lisp/gnus/gnus-delay.el:
* lisp/gnus/gnus-sum.el, lisp/gnus/nndiary.el:
* lisp/gnus/nnrss.el, lisp/net/newst-backend.el:
* lisp/net/rcirc.el, lisp/obsolete/xesam.el:
* lisp/org/org-agenda.el, lisp/org/org-clock.el:
* lisp/org/org-element.el, lisp/org/org-timer.el:
* lisp/org/org.el, lisp/progmodes/flymake.el:
* lisp/url/url-cache.el, lisp/url/url-cookie.el:
Use encode-time instead of its alias seconds-to-time.
Diffstat (limited to 'lisp/org/org-clock.el')
| -rw-r--r-- | lisp/org/org-clock.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 9d05c836da7..b177450d33f 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -1069,10 +1069,10 @@ to be CLOCKED OUT.")))) (and gotback (= gotback default))) 'now) (keep - (time-add last-valid (seconds-to-time (* 60 keep)))) + (time-add last-valid (encode-time (* 60 keep)))) (gotback (time-subtract (current-time) - (seconds-to-time (* 60 gotback)))) + (encode-time (* 60 gotback)))) (t (error "Unexpected, please report this as a bug"))) (and gotback last-valid) @@ -1155,7 +1155,7 @@ so long." (let* ((org-clock-user-idle-seconds (org-user-idle-seconds)) (org-clock-user-idle-start (time-subtract (current-time) - (seconds-to-time org-clock-user-idle-seconds))) + (encode-time org-clock-user-idle-seconds))) (org-clock-resolving-clocks-due-to-idleness t)) (if (> org-clock-user-idle-seconds (* 60 org-clock-idle-time)) (org-clock-resolve @@ -2714,14 +2714,14 @@ LEVEL is an integer. Indent by two spaces per level above 1." (setq te (float-time (apply #'encode-time (org-parse-time-string te)))))) (setq tsb (if (eq step0 'week) - (let ((dow (nth 6 (decode-time (seconds-to-time ts))))) + (let ((dow (nth 6 (decode-time (encode-time ts))))) (if (<= dow ws) ts (- ts (* 86400 (- dow ws))))) ts)) (while (< tsb te) (unless (bolp) (insert "\n")) - (let ((start-time (seconds-to-time (max tsb ts)))) - (cl-incf tsb (let ((dow (nth 6 (decode-time (seconds-to-time tsb))))) + (let ((start-time (encode-time (max tsb ts)))) + (cl-incf tsb (let ((dow (nth 6 (decode-time (encode-time tsb))))) (if (or (eq step0 'day) (= dow ws)) step @@ -2741,7 +2741,7 @@ LEVEL is an integer. Indent by two spaces per level above 1." :tstart (format-time-string (org-time-stamp-format t t) start-time) :tend (format-time-string (org-time-stamp-format t t) - (seconds-to-time (min te tsb)))))))) + (encode-time (min te tsb)))))))) (re-search-forward "^[ \t]*#\\+END:") (when (and stepskip0 (equal step-time 0)) ;; Remove the empty table |