[elpa] externals/org a9ee43a124: ox: Fix parsing of example #+includes

[ELPA Syncer]

branch: externals/org
commit a9ee43a1248f1daabb4aedb793314a223b2d4ba7
Author: TEC <git@tecosaur.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    ox: Fix parsing of example #+includes
    
    * lisp/ox.el (org-export-parse-include-value): Since the example
    environment regexp does not contain a capture group, we can not assume
    we can call `replace-match' on the first capture group.  Before doing
    so, check that the capture group indeed exists.
---
 lisp/ox.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/ox.el b/lisp/ox.el
index 759bd7875d..6fd72a2232 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -3420,7 +3420,8 @@ provided as the :unmatched parameter."
                                     :org-include-induced-level))))
          (args (and (eq env 'literal)
                     (prog1 (match-string 1 value)
-                      (setq value (replace-match "" nil nil value 1)))))
+                      (when (match-string 1 value)
+                        (setq value (replace-match "" nil nil value 1))))))
          (block (and (or (string-match "\"\\(\\S-+\\)\"" value)
                          (string-match "\\<\\(\\S-+\\)\\>" value))
                      (or (= (match-beginning 0) 0)