From 8048973bae208da130b8f42b67936bee7d24650b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 5 Nov 2015 10:56:59 +0100 Subject: [PATCH] ox: Rename `org-export-collect-tree-properties' * lisp/ox.el (org-export-collect-tree-properties): Remove function. (org-export--collect-tree-properties): New function. Renamed from `org-export-collect-tree-properties' (org-export-as): Apply renaming. * testing/lisp/test-ox.el (org-test-with-parsed-data): Apply renaming. --- lisp/ox.el | 8 ++++---- testing/lisp/test-ox.el | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index b5922b7b2..4d5d838db 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -1281,7 +1281,7 @@ The back-end could then be called with, for example: ;; `org-export-options-alist' variable. ;; ;; 2. Tree properties are extracted directly from the parsed tree, -;; just before export, by `org-export-collect-tree-properties'. +;; just before export, by `org-export--collect-tree-properties'. ;;;; Environment Options ;; @@ -1628,7 +1628,7 @@ BLOB is the element or object considered." ;; ;; Tree properties are information extracted from parse tree. They ;; are initialized at the beginning of the transcoding process by -;; `org-export-collect-tree-properties'. +;; `org-export--collect-tree-properties'. ;; ;; Dedicated functions focus on computing the value of specific tree ;; properties during initialization. Thus, @@ -1639,7 +1639,7 @@ BLOB is the element or object considered." ;; `org-export--collect-headline-numbering' builds an alist between ;; headlines and their numbering. -(defun org-export-collect-tree-properties (data info) +(defun org-export--collect-tree-properties (data info) "Extract tree properties from parse tree. DATA is the parse tree from which information is retrieved. INFO @@ -3040,7 +3040,7 @@ Return code as a string." ;; to communication channel. (setq info (org-combine-plists - info (org-export-collect-tree-properties tree info))) + info (org-export--collect-tree-properties tree info))) ;; Eventually transcode TREE. Wrap the resulting string into ;; a template. (let* ((body (org-element-normalize-string diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index 5e50764b9..cfdd3acbc 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -52,7 +52,7 @@ variable, and communication channel under `info'." (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (let ((info (org-combine-plists - info (org-export-collect-tree-properties tree info)))) + info (org-export--collect-tree-properties tree info)))) ,@body))))