From fbf89f0ecc9d56cf54de920fdba4adf0eacd1857 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 2 Sep 2010 15:21:30 +0200 Subject: [PATCH] org-agenda.el: Fixed a problem when computing time-grid. Memnon Anon reported that this setting yields a bug: ,---- | (setq org-agenda-time-grid (quote | ((daily weekly today require-timed) "----------------" | ( 000 200 400 600 800 1000 1200 1400 1600 1800 2000 2200 2359)))) `---- --- 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 3f667254e..90c693536 100644 --- 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 (int-to-string time)) + (setq time (format "%2d" time)) (push (org-format-agenda-item nil string "" nil (concat (substring time 0 -2) ":" (substring time -2))) -- 2.11.4.GIT