From 4d50a68dda17ca113f22c9bb36c0eac521379b58 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:12:38 +0300 Subject: [PATCH 15/76] Deprecate org-ascii-headline-spacing. --- lisp/org-compat.el | 2 ++ lisp/ox-ascii.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index b14901339..cc3e14dad 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -338,6 +338,8 @@ Counting starts at 1." 'org-ascii-filter-heading-blank-lines "9.5") (define-obsolete-function-alias 'org-ascii-headline 'org-ascii-heading "9.5") +(define-obsolete-variable-alias 'org-ascii-headline-spacing + 'org-ascii-heading-spacing "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 4a75a69a6..7b4232c4f 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -129,7 +129,7 @@ (:ascii-format-drawer-function nil nil org-ascii-format-drawer-function) (:ascii-format-inlinetask-function nil nil org-ascii-format-inlinetask-function) - (:ascii-headline-spacing nil nil org-ascii-headline-spacing) + (:ascii-headline-spacing nil nil org-ascii-heading-spacing) (:ascii-indented-line-width nil nil org-ascii-indented-line-width) (:ascii-inlinetask-width nil nil org-ascii-inlinetask-width) (:ascii-inner-margin nil nil org-ascii-inner-margin) @@ -204,7 +204,7 @@ This number ignores any margin." :package-version '(Org . "8.0") :type 'integer) -(defcustom org-ascii-headline-spacing '(1 . 2) +(defcustom org-ascii-heading-spacing '(1 . 2) "Number of blank lines inserted around headings. This variable can be set to a cons cell. In that case, its car @@ -1310,7 +1310,7 @@ holding contextual information." ;; exported and seen in `org-ascii--unique-links'. (title (org-ascii--build-title heading info width (not low-level))) ;; Blank lines between heading and its contents. - ;; `org-ascii-headline-spacing', when set, overwrites + ;; `org-ascii-heading-spacing', when set, overwrites ;; original buffer's spacing. (pre-blanks (make-string (or (car (plist-get info :ascii-headline-spacing)) @@ -2036,7 +2036,7 @@ is symbol specifying back-end used for export. INFO is plist containing the communication channel. This function only applies to `ascii' back-end. See -`org-ascii-headline-spacing' for information." +`org-ascii-heading-spacing' for information." (let ((heading-spacing (plist-get info :ascii-headline-spacing))) (if (not heading-spacing) heading (let ((blanks (make-string (1+ (cdr heading-spacing)) ?\n))) -- 2.33.0