From 744b953a7778a528585943c82d1f1edb48d088d4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 19:59:27 +0300 Subject: [PATCH 43/76] Deprecate org-icalendar-blocked-headline-p. --- lisp/org-compat.el | 2 ++ lisp/ox-icalendar.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 059c656b2..cdf1050a5 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -386,6 +386,8 @@ Counting starts at 1." 'org-html-heading "9.5") (define-obsolete-variable-alias 'org-html-self-link-headlines 'org-html-self-link-headings "9.5") +(define-obsolete-function-alias 'org-icalendar-blocked-headline-p + 'org-icalendar-blocked-heading-p "9.5") (define-obsolete-face-alias 'org-headline-done 'org-heading-done "9.5") (define-obsolete-face-alias 'org-headline-todo 'org-heading-todo "9.5") diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index 8cd561ed8..e5b379dfc 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -331,7 +331,7 @@ a message if the file was modified." (message "ID properties created in file \"%s\"" file) (sit-for 2)))) -(defun org-icalendar-blocked-headline-p (heading info) +(defun org-icalendar-blocked-heading-p (heading info) "Non-nil when HEADING is considered to be blocked. INFO is a plist used as a communication channel. @@ -646,7 +646,7 @@ inlinetask within the section." (all t) (unblocked (and (eq type 'headline) - (not (org-icalendar-blocked-headline-p + (not (org-icalendar-blocked-heading-p entry info)))) ((t) (eq todo-type 'todo)))) (org-icalendar--vtodo entry uid summary loc desc cat tz class)) -- 2.33.0