tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

lisp/org.el (org-in-src-block-p): Fix when post-blank has spaces 

Reported-by: Jens Schmidt <jschmidt4gnu@vodafonemail.de>
Link: https://orgmode.org/list/c286709d-5981-41ba-ac3f-f628f2b0ce34@vodafonemail.de
This commit is contained in:
Ihor Radchenko 2023-11-29 11:05:41 +01:00
parent 6d7c7917a0
commit 57b94f3447
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -18799,9 +18799,10 @@ When ELEMENT is provided, it is considered to be element at point."
(or (not inside)
(not (or (<= (line-beginning-position)
(org-element-post-affiliated element))
(>= (1+ (line-end-position))
(- (org-element-end element)
(org-element-post-blank element))))))))
(>= (line-end-position)
(org-with-point-at (org-element-end element)
(skip-chars-backward " \t\n\r")
(point))))))))
(defun org-context ()
"Return a list of contexts of the current cursor position.