emacs-elpa-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]