forked from mirrors/org-mode
org-element--substring: Fix when buffer is narrowed
* lisp/org-element.el (org-element--substring): Ignore narrowing.
This commit is contained in:
parent
fcde1f779d
commit
e18263fceb
|
@ -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)
|
||||
(org-with-wide-buffer
|
||||
(let ((beg (org-element-begin element)))
|
||||
(buffer-substring-no-properties
|
||||
(+ beg beg-offset) (+ beg end-offset)))))
|
||||
(+ beg beg-offset) (+ beg end-offset))))))
|
||||
|
||||
(defun org-element--unescape-substring (element beg-offset end-offset)
|
||||
"Call `org-element--substring' and unescape the result.
|
||||
|
|
Loading…
Reference in New Issue