[Orgmode] Re: icalendar: exporting times of day specified in heading?

[Stephen Eglen]

Ok, here is a patch that introduces a new variable so that the code to
extract times from diary entries entered using 'i d' is off by default.

2010-03-17  Stephen Eglen  <address@hidden>

        * org-agenda.el (org-agenda-insert-diary-extract-time): New
        variable.
        (org-agenda-add-entry-to-org-agenda-diary-file): Use this new
        variable rather than org-agenda-search-headline-for-time.

*** /tmp/ediff23195Zk   2010-03-17 15:22:42.000000000 +0000
--- /home/stephen/langs/emacs/elisp-ds/org-mode/lisp/org-agenda.el      
2010-03-17 15:20:56.000000000 +0000
***************
*** 7066,7071 ****
--- 7066,7076 ----
          (const :tag "in a date tree" date-tree)
          (const :tag "as top level at end of file" top-level)))
  
+ (defcustom org-agenda-insert-diary-extract-time nil
+   "Non-nil means extract any time specification from the diary entry."
+   :group 'org-agenda
+   :type 'boolean)
+ 
  (defun org-agenda-add-entry-to-org-agenda-diary-file (type text &optional d1 
d2)
    "Add a diary entry with TYPE to `org-agenda-diary-file'.
  If TEXT is not empty, it will become the headline of the new entry, and
***************
*** 7103,7109 ****
        (let*
          (fmt time time2
               (org-agenda-time-leading-zero t))
!       (if org-agenda-search-headline-for-time
            ;; Use org-format-agenda-item to parse text for a time-range and
            ;; remove it.  
            (setq fmt (org-format-agenda-item nil text nil nil t)
--- 7108,7114 ----
        (let*
          (fmt time time2
               (org-agenda-time-leading-zero t))
!       (if org-agenda-insert-diary-extract-time
            ;; Use org-format-agenda-item to parse text for a time-range and
            ;; remove it.  
            (setq fmt (org-format-agenda-item nil text nil nil t)