From 3e84540bfa4bbf44b415c46d8c7b91520b787348 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 5 Nov 2009 08:08:46 +0100 Subject: [PATCH] Use org-icalendar-verify-function only if non-nil Patch by Andrew Lawson. --- lisp/ChangeLog | 3 +++ lisp/org-icalendar.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 152a215e4..ecaaeae6a 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-11-05 Carsten Dominik + * org-icalendar.el (org-print-icalendar-entries): Use + org-icalendar-verify-function only if non-nil. + * org.el (org-refile): Refile to clock only if the prefix arg is 2. (org-sparse-tree): Fix docstring to be in line with prompt. diff --git a/lisp/org-icalendar.el b/lisp/org-icalendar.el index bee27b8c4..2efe8b687 100644 --- a/lisp/org-icalendar.el +++ b/lisp/org-icalendar.el @@ -280,7 +280,7 @@ When COMBINE is non nil, add the category to each line." (while (re-search-forward re1 nil t) (catch :skip (org-agenda-skip) - (when (boundp 'org-icalendar-verify-function) + (when org-icalendar-verify-function (unless (funcall org-icalendar-verify-function) (outline-next-heading) (backward-char 1) @@ -403,7 +403,7 @@ END:VEVENT\n" (while (re-search-forward org-todo-line-regexp nil t) (catch :skip (org-agenda-skip) - (when (boundp 'org-icalendar-verify-function) + (when org-icalendar-verify-function (unless (save-match-data (funcall org-icalendar-verify-function)) (outline-next-heading)