tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix typos in org-timer.el

This commit is contained in:
Bernt Hansen 2008-12-16 11:50:38 -05:00
parent 03e0c6395b
commit 298b9cb489
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-timer.el
View File

@ -125,7 +125,7 @@ that was not started at the correct moment."
;;;###autoload
(defun org-timer-item (&optional arg)
"Insert a description-type item with the curren timer value."
"Insert a description-type item with the current timer value."
(interactive "P")
(let ((ind 0))
(save-excursion
@ -150,7 +150,7 @@ that was not started at the correct moment."
(if (match-end 2) (string-to-number (match-string 2 hms)) 0)
(string-to-number (match-string 3 hms)))
t t hms)
(error "Canot parse HMS string \"%s\"" hms)))
(error "Cannot parse HMS string \"%s\"" hms)))
(defun org-timer-hms-to-secs (hms)
"Convert h:mm:ss string to an integer time.
@ -168,7 +168,7 @@ If the string starts with a minus sign, the integer will be negative."
(defun org-timer-secs-to-hms (s)
"Convert integer S into h:mm:ss.
If the integer is negative, the strig will start with \"-\"."
If the integer is negative, the string will start with \"-\"."
(let (sign m h)
(setq sign (if (< s 0) "-" "")
s (abs s)