diff options
author | Kyle Meyer <kyle@kyleam.com> | 2019-02-12 19:46:09 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2019-02-12 19:53:52 -0500 |
commit | c0213eb743005dfd45e940546c0adacb44e38ce7 (patch) | |
tree | 954d14b19829628ac710eaa8053d46ae4036ee1a | |
parent | 6a5be09c1d79771c696315adf9f50bec9c8ba1f8 (diff) | |
download | org-mode-c0213eb743005dfd45e940546c0adacb44e38ce7.tar.gz |
org-timer: Simplify org-timer-seconds
* lisp/org-timer.el (org-timer-seconds): Simplify.
-rw-r--r-- | lisp/org-timer.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/org-timer.el b/lisp/org-timer.el index 73583b3..e8dcc0b 100644 --- a/lisp/org-timer.el +++ b/lisp/org-timer.el @@ -232,11 +232,9 @@ it in the buffer." (abs (floor (org-timer-seconds)))))) (defun org-timer-seconds () - (if org-timer-countdown-timer - (- (float-time org-timer-start-time) - (float-time org-timer-pause-time)) - (- (float-time org-timer-pause-time) - (float-time org-timer-start-time)))) + (funcall (if org-timer-countdown-timer #'+ #'-) + (- (float-time org-timer-start-time) + (float-time org-timer-pause-time)))) ;;;###autoload (defun org-timer-change-times-in-region (beg end delta) |