Memnon Anon <gegendosenflei...@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
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
