summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2019-02-12 19:46:09 -0500
committerKyle Meyer <kyle@kyleam.com>2019-02-12 19:53:52 -0500
commitc0213eb743005dfd45e940546c0adacb44e38ce7 (patch)
tree954d14b19829628ac710eaa8053d46ae4036ee1a
parent6a5be09c1d79771c696315adf9f50bec9c8ba1f8 (diff)
downloadorg-mode-c0213eb743005dfd45e940546c0adacb44e38ce7.tar.gz
org-timer: Simplify org-timer-seconds
* lisp/org-timer.el (org-timer-seconds): Simplify.
-rw-r--r--lisp/org-timer.el8
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)