diff options
| author | Bastien Guerry <bzg@altern.org> | 2010-05-20 16:24:44 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2010-05-20 16:24:44 +0200 |
| commit | baaf431f8549d227137bf2612b7ac37d8f72e2e0 (patch) | |
| tree | 79b87d54e94a4591f0e95ee75c86521d030f1c85 | |
| parent | 3bf121f8b1086ee2ce6baf575bc56bc636402e81 (diff) | |
| download | org-mode-baaf431f8549d227137bf2612b7ac37d8f72e2e0.tar.gz | |
Use the type "number" for the new variable org-timer-default-timer
| -rw-r--r-- | lisp/org-timer.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-timer.el b/lisp/org-timer.el index e1c039b..72e2c9e 100644 --- a/lisp/org-timer.el +++ b/lisp/org-timer.el @@ -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) |