branch: externals/org
commit de998dfe8ff3f4a467869f8472f150182145d767
Author: Morgan Smith <[email protected]>
Commit: Ihor Radchenko <[email protected]>
Change uses of deprecated `org-export-before-processing-hook'
* lisp/ox.el (Commentary, org-export--annotate-info):
* testing/lisp/test-org-table.el (test-org-table/to-generic):
* testing/lisp/test-ox.el (test-org-export/before-processing-hook):
Switch uses of `org-export-before-processing-hook' to
`org-export-before-processing-functions'.
---
lisp/ox.el | 4 ++--
testing/lisp/test-org-table.el | 2 +-
testing/lisp/test-ox.el | 4 ++--
3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/ox.el b/lisp/ox.el
index 29f416fc4f..bc0c9a8859 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -2175,7 +2175,7 @@ keywords before output."
;; Filters properties are installed in communication channel with
;; `org-export-install-filters' function.
;;
-;; Eventually, two hooks (`org-export-before-processing-hook' and
+;; Eventually, two hooks (`org-export-before-processing-functions' and
;; `org-export-before-parsing-functions') are run at the beginning of the
;; export process and just before parsing to allow for heavy structure
;; modifications.
@@ -3100,7 +3100,7 @@ still inferior to file-local settings."
org-export-options-alist))))
tree modified-tick)
;; Run first hook with current backend's name as argument.
- (run-hook-with-args 'org-export-before-processing-hook
+ (run-hook-with-args 'org-export-before-processing-functions
(org-export-backend-name backend))
(org-export-expand-include-keyword nil nil nil nil (plist-get info
:expand-links))
(org-export--delete-comment-trees)
diff --git a/testing/lisp/test-org-table.el b/testing/lisp/test-org-table.el
index e6fc64abb6..076b37a8f0 100644
--- a/testing/lisp/test-org-table.el
+++ b/testing/lisp/test-org-table.el
@@ -1614,7 +1614,7 @@ See also `test-org-table/copy-field'."
"a\nb"
(let* ((fun-list (list (lambda (_backend) (search-forward "a") (insert
"hook"))))
(org-export-before-parsing-functions fun-list)
- (org-export-before-processing-hook fun-list))
+ (org-export-before-processing-functions fun-list))
(orgtbl-to-generic (org-table-to-lisp "| a |\n|---|\n| b |")
'(:hline nil)))))
;; User-defined export filters are ignored.
diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el
index ddf37a5f6f..347a6dd979 100644
--- a/testing/lisp/test-ox.el
+++ b/testing/lisp/test-ox.el
@@ -1857,12 +1857,12 @@ Footnotes[fn:2], foot[fn:test] and [fn:inline:inline
footnote]
(buffer-string)))))
(ert-deftest test-org-export/before-processing-hook ()
- "Test `org-export-before-processing-hook'."
+ "Test `org-export-before-processing-functions'."
(should
(equal
"#+macro: mac val\nTest\n"
(org-test-with-temp-text "#+MACRO: mac val\n{{{mac}}} Test"
- (let ((org-export-before-processing-hook
+ (let ((org-export-before-processing-functions
'((lambda (backend)
(while (re-search-forward "{{{" nil t)
(let ((object (org-element-context)))
