[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] possible bug of display time-range appt in agenda
From: |
Levin |
Subject: |
[Orgmode] possible bug of display time-range appt in agenda |
Date: |
Mon, 24 Sep 2007 14:47:59 +0800 |
User-agent: |
KMail/1.9.7 |
Put something in the org buffer:
** Do something <2007-10-01 11:30-12:20>
then in the agenda, only "Do something" is displayed, without showing the appt
time.
I trace the code and find out that:
(org-get-time-of-day "<2007-10-01 11:30-12:20>")
which return nil cause this probem.
I do not know if this bug has been mentioned or resolved. I'm posting here in
case that it is not :)
-Levin
PS. I did a patch, which solves the problem. Yet it is a bit ugly :)
(It is the diff of org-get-time-of-day function. line number may be wrong.)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -19113,9 +19113,9 @@ HH:MM."
(when
(or
(string-match
- "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)?\\> *" s)
+ "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)? *" s)
(string-match
- "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\)\\> *"
s))
+ "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\) *" s))
(let* ((h (string-to-number (match-string 1 s)))
(m (if (match-end 3) (string-to-number (match-string 3 s)) 0))
(ampm (if (match-end 4) (downcase (match-string 4 s))))
- [Orgmode] possible bug of display time-range appt in agenda,
Levin <=