Re: icalendar: exporting times of day specified in heading?

[Stephen Eglen <S.J.Eglen@damtp.cam.ac.uk>]

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  <stephen@gnu.org>

	* 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)