瀏覽代碼

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 年之前
父節點
當前提交
4b36c8d470
共有 3 個文件被更改,包括 8 次插入3 次删除
  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
 
-    : #+INCLUDE: "file" markup lang
+    : #+INCLUDE "file" markup lang
 
     will lead to the inclusion of the contents of FILE at the moment
     of publishing.  FILE should be surrounded by double quotes, this
@@ -189,7 +189,7 @@ but not any simpler -- Albert Einstein
     : <h   #+begin_html
     : <H   #+html:
     : <a   #+begin_ascii
-    : <i   #+include:
+    : <i   #+include
 
     This is an experimental feature, please comment!  See also
     below under /org-mtags.el/.

+ 4 - 0
lisp/ChangeLog

@@ -1,5 +1,9 @@
 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.
 
 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)
 	      (progn
 		(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)
 					     (- pos org-ds-keyword-length))
 					pos)