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

Use the type "number" for the new variable org-timer-default-timer

This commit is contained in:
Bastien Guerry 2010-05-20 16:24:44 +02:00
parent 3bf121f8b1
commit baaf431f85
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-timer.el
View File

@ -48,11 +48,11 @@ the value of the relative timer."
:group 'org-time
:type 'string)
(defcustom org-timer-default-timer nil
(defcustom org-timer-default-timer 0
"The default timer when a timer is set.
When nil, the user is prompted for a value."
When 0, the user is prompted for a value."
:group 'org-time
:type 'string)
:type 'number)
(defvar org-timer-start-hook nil
"Hook run after relative timer is started.")
@ -312,7 +312,7 @@ VALUE can be `on', `off', or `pause'."
(let ((minutes
(read-from-minibuffer
"How many minutes left? "
(if org-timer-default-timer
(if (not (eq org-timer-default-timer 0))
(number-to-string org-timer-default-timer)))))
(if (not (string-match "[0-9]+" minutes))
(org-timer-show-remaining-time)