org-print-icalendar-entries: use org-export-exclude-tags.

This commit is contained in:
Bastien Guerry 2011-02-11 14:00:10 +01:00
parent af72eecf3a
commit 99d507dfc4
1 changed files with 4 additions and 3 deletions

View File

@ -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