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-timer.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-timer.el')
| -rw-r--r-- | lisp/org/org-timer.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org/org-timer.el b/lisp/org/org-timer.el index bf17de4b03e..c9ca85c0c39 100644 --- a/lisp/org/org-timer.el +++ b/lisp/org/org-timer.el @@ -140,7 +140,7 @@ the region 0:00:00." (unless (string-match "\\S-" s) (setq s def)) (setq delta (org-timer-hms-to-secs (org-timer-fix-incomplete s))))) (setq org-timer-start-time - (seconds-to-time + (encode-time ;; Pass `current-time' result to `float-time' (instead ;; of calling without arguments) so that only ;; `current-time' has to be overridden in tests. @@ -168,12 +168,12 @@ With prefix arg STOP, stop it entirely." (org-timer--run-countdown-timer new-secs org-timer-countdown-timer-title)) (setq org-timer-start-time - (time-add (current-time) (seconds-to-time new-secs)))) + (time-add (current-time) (encode-time new-secs)))) (setq org-timer-start-time ;; Pass `current-time' result to `float-time' (instead ;; of calling without arguments) so that only ;; `current-time' has to be overridden in tests. - (seconds-to-time (- (float-time (current-time)) + (encode-time (- (float-time (current-time)) (- pause-secs start-secs))))) (setq org-timer-pause-time nil) (org-timer-set-mode-line 'on) @@ -464,7 +464,7 @@ using three `C-u' prefix arguments." secs org-timer-countdown-timer-title)) (run-hooks 'org-timer-set-hook) (setq org-timer-start-time - (time-add (current-time) (seconds-to-time secs))) + (time-add (current-time) (encode-time secs))) (setq org-timer-pause-time nil) (org-timer-set-mode-line 'on)))))) |