branch: externals/org
commit 8a977cd880721dad27ff1624a8a8c05caa56b803
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-at-drawer-p: Fix missing invisible blocks
* lisp/org.el (org-at-block-p): Use `forward-line' instead of
`move-beginning-of-line'. The latter obeys visibility, which is not
expected.
Reported-by: Jonas Bernoulli <[email protected]>
Link: https://orgmode.org/list/[email protected]
---
lisp/org.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index ed012d2e61..977d04c820 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -21325,7 +21325,7 @@ Optional argument ELEMENT contains element at point."
(defun org-at-block-p nil
"Return t if cursor is at a block keyword."
(save-excursion
- (move-beginning-of-line 1)
+ (forward-line 0)
(looking-at org-block-regexp)))
(defun org-point-at-end-of-empty-headline ()
