[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 57b94f3447: lisp/org.el (org-in-src-block-p): Fix w
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/org 57b94f3447: lisp/org.el (org-in-src-block-p): Fix when post-blank has spaces |
|
Date: |
Wed, 29 Nov 2023 06:58:15 -0500 (EST) |
branch: externals/org
commit 57b94f3447b9046dac2f9238e24ad902510056cc
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
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
---
lisp/org.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index cb8a14d051..bdccc2d241 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -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.
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 57b94f3447: lisp/org.el (org-in-src-block-p): Fix when post-blank has spaces,
ELPA Syncer <=