浏览代码

org-timer.el (org-timer-value-string): Always return a positive value

* org-timer.el (org-timer-value-string): Always return a
positive value.  Add docstring.
Bastien Guerry 10 年之前
父节点
当前提交
7e5965372d
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      lisp/org-timer.el

+ 4 - 1
lisp/org-timer.el

@@ -186,7 +186,10 @@ it in the buffer."
     (insert (org-timer-value-string))))
 
 (defun org-timer-value-string ()
-  (format org-timer-format (org-timer-secs-to-hms (floor (org-timer-seconds)))))
+  "Set the timer string."
+  (format org-timer-format
+	  (org-timer-secs-to-hms
+	   (abs (floor (org-timer-seconds))))))
 
 (defvar org-timer-timer-is-countdown nil)
 (defun org-timer-seconds ()