Browse Source

Fixed bug with date ranges in iCalendar export.

When there are no time-of-day infos, the appointment
ended up being too short by one day.  Fixed now.
Carsten Dominik 17 years ago
parent
commit
4b36c8d470
3 changed files with 8 additions and 3 deletions
  1. 2 2
      ORGWEBPAGE/Changes.org
  2. 4 0
      lisp/ChangeLog
  3. 2 1
      lisp/org-exp.el

+ 2 - 2
ORGWEBPAGE/Changes.org

@@ -131,7 +131,7 @@ but not any simpler -- Albert Einstein
 
 
     A line like
     A line like
 
 
-    : #+INCLUDE: "file" markup lang
+    : #+INCLUDE "file" markup lang
 
 
     will lead to the inclusion of the contents of FILE at the moment
     will lead to the inclusion of the contents of FILE at the moment
     of publishing.  FILE should be surrounded by double quotes, this
     of publishing.  FILE should be surrounded by double quotes, this
@@ -189,7 +189,7 @@ but not any simpler -- Albert Einstein
     : <h   #+begin_html
     : <h   #+begin_html
     : <H   #+html:
     : <H   #+html:
     : <a   #+begin_ascii
     : <a   #+begin_ascii
-    : <i   #+include:
+    : <i   #+include
 
 
     This is an experimental feature, please comment!  See also
     This is an experimental feature, please comment!  See also
     below under /org-mtags.el/.
     below under /org-mtags.el/.

+ 4 - 0
lisp/ChangeLog

@@ -1,5 +1,9 @@
 2008-05-14  Carsten Dominik  <dominik@science.uva.nl>
 2008-05-14  Carsten Dominik  <dominik@science.uva.nl>
 
 
+	* org-exp.el (org-print-icalendar-entries): Make sure DTEND is
+	shifted by one day if theere is a date range without an end
+	time.
+
 	* org.el (org-try-structure-completion): New function.
 	* org.el (org-try-structure-completion): New function.
 
 
 2008-05-13  Carsten Dominik  <dominik@science.uva.nl>
 2008-05-13  Carsten Dominik  <dominik@science.uva.nl>

+ 2 - 1
lisp/org-exp.el

@@ -3716,7 +3716,8 @@ When COMBINE is non nil, add the category to each line."
 	  (if (looking-at re2)
 	  (if (looking-at re2)
 	      (progn
 	      (progn
 		(goto-char (match-end 0))
 		(goto-char (match-end 0))
-		(setq ts2 (match-string 1) inc nil))
+		(setq ts2 (match-string 1)
+		      inc (not (string-match "[0-9]\\{1,2\\}:[0-9][0-9]" ts2))))
 	    (setq tmp (buffer-substring (max (point-min)
 	    (setq tmp (buffer-substring (max (point-min)
 					     (- pos org-ds-keyword-length))
 					     (- pos org-ds-keyword-length))
 					pos)
 					pos)