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 ;;;###autoload
(defun org-timer-item (&optional arg) (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") (interactive "P")
(let ((ind 0)) (let ((ind 0))
(save-excursion (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) (if (match-end 2) (string-to-number (match-string 2 hms)) 0)
(string-to-number (match-string 3 hms))) (string-to-number (match-string 3 hms)))
t t 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) (defun org-timer-hms-to-secs (hms)
"Convert h:mm:ss string to an integer time. "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) (defun org-timer-secs-to-hms (s)
"Convert integer S into h:mm:ss. "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) (let (sign m h)
(setq sign (if (< s 0) "-" "") (setq sign (if (< s 0) "-" "")
s (abs s) s (abs s)