(org-get-time-of-day): Fixed bug with times before 1am.

1602cb1a · Carsten Dominik · 82cb4e9a · 1602cb1a
Commit 1602cb1a authored Jan 13, 2006 by Carsten Dominik
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/textmodes/org.el lisp/textmodes/org.el +1 -1

No files found.
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -5786,7 +5786,7 @@ HH:MM."
 		       (string-to-number (match-string 3 s))
 		     0)))
 	    (t1 (concat " "
-			(if (< t0 100) "0" "")
+			(if (< t0 100) "0" "") (if (< t0 10) "0" "")
 			(int-to-string t0))))
       (if string (concat (substring t1 -4 -2) ":" (substring t1 -2)) t0)))))