Second fix for the time-grid problem.

2010-09-02 17:48:24 +02:00 · 2010-09-02 17:48:24 +02:00 · 7b188f7da5
parent f2acd5e8d1
commit 7b188f7da5
1 changed files with 1 additions and 1 deletions
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@ -5118,7 +5118,7 @@ The modified list may contain inherited tags, and tags matched by
 	  (throw 'exit list))
      (while (setq time (pop gridtimes))
 	(unless (and remove (member time have))
-	  (setq time (format "%2d" time))
+	  (setq time (format "%4d" time))
 	  (push (org-format-agenda-item
 		 nil string "" nil
 		 (concat (substring time 0 -2) ":" (substring time -2)))