From a4fdf4c31d7ed5633c2b1ac148363876406b1d50 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:08:22 +0300 Subject: [PATCH 13/76] Deprecate org-ascii-filter-headline-blank-lines. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index ad82dddba..40ca4e2fe 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -334,6 +334,8 @@ Counting starts at 1." 'org-agenda-search-heading-for-time "9.5") (define-obsolete-variable-alias 'org-agenda-top-headline-filter 'org-agenda-top-heading-filter "9.5") +(define-obsolete-function-alias 'org-ascii-filter-headline-blank-lines + 'org-ascii-filter-heading-blank-lines "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 30ca960ac..b21d0e7e9 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -116,10 +116,10 @@ (?u "As UTF-8 file" (lambda (a s v b) (org-ascii-export-to-ascii a s v b '(:ascii-charset utf-8)))))) - :filters-alist '((:filter-headline . org-ascii-filter-headline-blank-lines) + :filters-alist '((:filter-headline . org-ascii-filter-heading-blank-lines) (:filter-parse-tree org-ascii-filter-paragraph-spacing org-ascii-filter-comment-spacing) - (:filter-section . org-ascii-filter-headline-blank-lines)) + (:filter-section . org-ascii-filter-heading-blank-lines)) :options-alist '((:subtitle "SUBTITLE" nil nil parse) (:ascii-bullets nil nil org-ascii-bullets) @@ -2028,7 +2028,7 @@ contextual information." ;;; Filters -(defun org-ascii-filter-headline-blank-lines (heading _backend info) +(defun org-ascii-filter-heading-blank-lines (heading _backend info) "Filter controlling number of blank lines after a heading. HEADING is a string representing a transcoded heading. BACKEND -- 2.33.0