From cff8571c319c9cc4a8de36d64dd6baa35d29c4e2 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 28 Oct 2008 15:39:45 +0100 Subject: [PATCH] Fix priority bug in icalendar export. --- lisp/ChangeLog | 3 +++ lisp/org-exp.el | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b58e4e1d8..389d47d45 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-10-28 Carsten Dominik + * org-exp.el (org-print-icalendar-entries): Make the exported + priorities compatible with RFC 2445. + * org-clock.el (org-clock-save): Insert time stamp without dependence on time-stamp.el. diff --git a/lisp/org-exp.el b/lisp/org-exp.el index a47fc4585..bcabc2d33 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -4384,9 +4384,9 @@ END:VEVENT\n" hd (concat (substring hd 0 (match-beginning 1)) (substring hd (match-end 1)))) (setq pri org-default-priority)) - (setq pri (floor (1+ (* 8. (/ (float (- org-lowest-priority pri)) - (- org-lowest-priority org-highest-priority)))))) - + (setq pri (floor (- 9 (* 8. (/ (float (- org-lowest-priority pri)) + (- org-lowest-priority org-highest-priority)))))) + (princ (format "BEGIN:VTODO UID: %s %s