Capture: Respect time-of-day preference in interactive template prompt.

* lisp/org-capture.el (org-capture-fill-template): Respect
time-of-day preference in template prompt.

In an interactive time prompt in a capture template, the users
preference of getting a stamp with time was not respected.

Reported by Markus Heller
This commit is contained in:
Carsten Dominik 2010-07-02 09:08:29 +02:00
parent bc40da46a9
commit d0fa608267
1 changed files with 2 additions and 1 deletions

View File

@ -1183,8 +1183,9 @@ The template may still contain \"%?\" for cursor positioning."
(char
;; These are the date/time related ones
(setq org-time-was-given (equal (upcase char) char))
(setq time (org-read-date (equal (upcase char) "U") t nil
(setq time (org-read-date (equal (upcase char) char) t nil
prompt))
(if (equal (upcase char) char) (setq org-time-was-given t))
(org-insert-time-stamp time org-time-was-given
(member char '("u" "U"))
nil nil (list org-end-time-was-given)))