From mboxrd@z Thu Jan  1 00:00:00 1970
From: Bastien <bastien.guerry@wikimedia.fr>
Subject: Re: Setting org-agenda-time-grid: My day starts at midnight
Date: Thu, 02 Sep 2010 15:22:46 +0200
Message-ID: <87zkw01dqw.fsf@gnu.org>
References: <874oerjgef.fsf@mean.albasani.net>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from [140.186.70.92] (port=47161 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1Or9ks-0004S9-Ct
	for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 09:23:06 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
	(envelope-from <bastienguerry@googlemail.com>) id 1Or9kc-0006Xe-U0
	for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 09:22:47 -0400
Received: from mail-ww0-f49.google.com ([74.125.82.49]:50969)
	by eggs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <bastienguerry@googlemail.com>) id 1Or9kc-0006XX-Pu
	for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 09:22:46 -0400
Received: by wwb24 with SMTP id 24so661057wwb.30
	for <emacs-orgmode@gnu.org>; Thu, 02 Sep 2010 06:22:45 -0700 (PDT)
In-Reply-To: <874oerjgef.fsf@mean.albasani.net> (Memnon Anon's message of
	"Thu, 19 Aug 2010 08:17:38 +0200")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Memnon Anon <gegendosenfleisch@googlemail.com>
Cc: Org Mode <emacs-orgmode@gnu.org>

Memnon Anon <gegendosenfleisch@googlemail.com> writes:

> I added one line:
>           (unless (and remove (member time have))
>             (setq time (int-to-string time))
> ;;MAN make sure time is at least 3 characters long or substring will fail
> =>          (when (< (length time) 3) (setq time (concat "00" time)))  
>             (push (org-format-agenda-item

Thanks for the report.

I fixed this in a slightly different way:

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 3f66725..90c6935 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)))

-- 
 Bastien