Ver Fonte

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

Bastien Guerry há 14 anos atrás
pai
commit
99d507dfc4
1 ficheiros alterados com 4 adições e 3 exclusões
  1. 4 3
      lisp/org-icalendar.el

+ 4 - 3
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