From f2e3ad48cc0d62e264b13efe95a5e20d260a1464 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Fri, 8 Oct 2021 23:19:26 +0300 Subject: [PATCH 46/76] Deprecate org-koma-letter--keyword-or-headline. Not made obsolete since it's internal. --- lisp/ox-koma-letter.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ox-koma-letter.el b/lisp/ox-koma-letter.el index b361a856c..e8805cb35 100644 --- a/lisp/ox-koma-letter.el +++ b/lisp/ox-koma-letter.el @@ -652,7 +652,7 @@ special tag heading." (cl-some (lambda (tag) (and (assoc-string tag special-tags) tag)) (org-export-get-tags heading info)))) -(defun org-koma-letter--keyword-or-headline (plist-key pred info) +(defun org-koma-letter--keyword-or-heading (plist-key pred info) "Return the correct version of opening or closing. PLIST-KEY should be a key in info, typically :opening or :closing. PRED is a predicate run on heading to determine @@ -742,7 +742,7 @@ holding export options." "\\mbox{}")))) ;; Opening. (format "\\opening{%s}\n\n" - (org-koma-letter--keyword-or-headline + (org-koma-letter--keyword-or-heading :opening (lambda (h i) (not (org-koma-letter--special-tag h i))) @@ -751,7 +751,7 @@ holding export options." contents ;; Closing. (format "\\closing{%s}\n" - (org-koma-letter--keyword-or-headline + (org-koma-letter--keyword-or-heading :closing (lambda (h i) (let ((special-tag (org-koma-letter--special-tag h i))) -- 2.33.0