diff options
author | Bastien Guerry <bzg@altern.org> | 2010-09-02 15:21:30 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2010-09-02 15:21:30 +0200 |
commit | fbf89f0ecc9d56cf54de920fdba4adf0eacd1857 (patch) | |
tree | becc21a31b29a3ca7c55fc140736a1888fd70dfa | |
parent | d8498a40e815d8604311e9844e6c75bbf074d026 (diff) | |
download | org-mode-fbf89f0ecc9d56cf54de920fdba4adf0eacd1857.tar.gz |
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))))
`----
-rw-r--r-- | lisp/org-agenda.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |