From e18263fceba2e6632a7ed30737e3197644c3d2d8 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Wed, 31 May 2023 13:47:57 +0300 Subject: [PATCH] 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 8a7dc75a5..b5865ca00 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.