From 99d507dfc44346480dc366fff12bb9d59e69ac1c Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 11 Feb 2011 14:00:10 +0100 Subject: [PATCH] org-print-icalendar-entries: use org-export-exclude-tags. --- lisp/org-icalendar.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-icalendar.el b/lisp/org-icalendar.el index 3583e6a5e..d8f58007f 100644 --- a/lisp/org-icalendar.el +++ b/lisp/org-icalendar.el @@ -74,7 +74,7 @@ for timed events. If non-zero, alarms are created. :type 'boolean) (defcustom org-icalendar-honor-noexport-tag nil - "Non-nil means don't export entries with a :noexport: tag." + "Non-nil means don't export entries with a tag in `org-export-exclude-tags'." :group 'org-export-icalendar :type 'boolean) @@ -362,8 +362,9 @@ When COMBINE is non nil, add the category to each line." (not deadlinep) (not scheduledp)) (throw :skip t)) ;; don't export entries with a :noexport: tag - (when (and t org-icalendar-honor-noexport-tag - (member "noexport" tags)) + (when (and org-icalendar-honor-noexport-tag + (delq nil (mapcar (lambda(x) + (member x org-export-exclude-tags)) tags))) (throw :skip t)) (when (and deadlinep