From 3ec475027162b6f42c33dfd8ccbacc1a07071e87 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 5 Sep 2010 21:09:50 +0200 Subject: [PATCH] Third fix for the time-grid problem. Hopefully the last one. See commit 7b188f7d. Reported by Memnon Anon . --- lisp/org-agenda.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 3a6434475..32c65dbef 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5117,7 +5117,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 "%4d" time)) + (setq time (replace-regexp-in-string " " "0" (format "%4s" time))) (push (org-format-agenda-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2)))