[elpa] externals/org e18263fceb 091/101: org-element--substring: Fix when buffer is narrowed

[ELPA Syncer]

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

    org-element--substring: Fix when buffer is narrowed
    
    * lisp/org-element.el (org-element--substring): Ignore narrowing.
---
 lisp/org-element.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 8a7dc75a5f..b5865ca006 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -623,9 +623,10 @@ Return nil if STRING is nil."
 (defun org-element--substring (element beg-offset end-offset)
   "Get substring inside ELEMENT according to BEG-OFFSET and END-OFFSET."
   (with-current-buffer (org-element-property :buffer element)
-    (let ((beg (org-element-begin element)))
-      (buffer-substring-no-properties
-       (+ beg beg-offset) (+ beg end-offset)))))
+    (org-with-wide-buffer
+     (let ((beg (org-element-begin element)))
+       (buffer-substring-no-properties
+        (+ beg beg-offset) (+ beg end-offset))))))
 
 (defun org-element--unescape-substring (element beg-offset end-offset)
   "Call `org-element--substring' and unescape the result.