mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-timer: Simplify org-timer-seconds 

* lisp/org-timer.el (org-timer-seconds): Simplify.
This commit is contained in:
Kyle Meyer 2019-02-12 19:46:09 -05:00
parent 6a5be09c1d
commit c0213eb743
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-timer.el
View File

@ -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)