Prechádzať zdrojové kódy

org-timer: Simplify org-timer-seconds

* lisp/org-timer.el (org-timer-seconds): Simplify.
Kyle Meyer 6 rokov pred
rodič
commit
c0213eb743
1 zmenil súbory, kde vykonal 3 pridanie a 5 odobranie
  1. 3 5
      lisp/org-timer.el

+ 3 - 5
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)