From b79e7790f907f5d82a771885e86d936cc7d22bf6 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 18 Mar 2010 06:36:49 +0100 Subject: [PATCH] Fix time extraction when inserting diary entries with `i d' --- lisp/ChangeLog | 6 ++++++ lisp/org-agenda.el | 9 +++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ffc28625..724da3ad6 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-03-18 Carsten Dominik + + * org-agenda.el (org-agenda-add-entry-to-org-agenda-diary-file): + Make sure the behavior regarding to extracting time is + consistent. + 2010-03-17 Stephen Eglen * org-agenda.el (org-agenda-insert-diary-extract-time): New diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index a50a36463..56c7256b1 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7105,12 +7105,13 @@ the resulting entry will not be shown. When TEXT is empty, switch to (insert (format "%%%%(diary-anniversary %s) %s" (calendar-date-string d1 nil t) text)))) ((eq type 'day) - (let* - (fmt time time2 - (org-agenda-time-leading-zero t)) + (let ((org-prefix-has-time t) + (org-agenda-time-leading-zero t) + fmt time time2) (if org-agenda-insert-diary-extract-time ;; Use org-format-agenda-item to parse text for a time-range and - ;; remove it. + ;; remove it. FIXME: This is a hack, we should refactor + ;; that function to make time extraction available separately (setq fmt (org-format-agenda-item nil text nil nil t) time (get-text-property 0 'time fmt) time2 (if (> (length time) 0) -- 2.11.4.GIT