branch: externals-release/org
commit d5a56bd9999ae9d0cf403de592825df5b900d45c
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 3ac5e6dbcb..ce0bbd8f78 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -21512,7 +21512,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 ()
