[elpa] externals/org 240eb969e4: ox: Allow anonymous parent backends

[ELPA Syncer]

branch: externals/org
commit 240eb969e4e74843b341e9e352577cc98b760437
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    ox: Allow anonymous parent backends
    
    * lisp/ox.el (org-export-get-all-options):
    (org-export-get-all-filters): Do not demand parent chain to be from
    registered backends.  Allow anonymous parents as well.
    
    This is necessary because `orgtbl-to-generic' now uses anonymous
    backend via normal ox.el machinery and ob-gnuplot layers an anonymous
    backend on top (which is not invalid, given that `orgtbl-to-generic'
    did work with this setup in the past).
---
 lisp/ox.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ox.el b/lisp/ox.el
index 902c9f089e..ebb8a3abbf 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -1135,7 +1135,7 @@ Return nil if BACKEND is unknown."
     (let ((options (org-export-backend-options backend))
          parent)
       (while (setq parent (org-export-backend-parent backend))
-       (setq backend (org-export-get-backend parent))
+       (setq backend (if (symbolp parent) (org-export-get-backend parent) 
parent))
        (setq options (append options (org-export-backend-options backend))))
       options)))
 
@@ -1153,7 +1153,7 @@ returns filters inherited from parent backends, if any."
     (let ((filters (org-export-backend-filters backend))
          parent)
       (while (setq parent (org-export-backend-parent backend))
-       (setq backend (org-export-get-backend parent))
+       (setq backend (if (symbolp parent) (org-export-get-backend parent) 
parent))
        (setq filters (append filters (org-export-backend-filters backend))))
       filters)))